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1 INTRODUCTION 


The  STRUCTRAN  structured  programming  translators  are  tools  for  enabling 
structured  programming  in  FORTRAN-based  software  developments.  STRUCTRAN-1 
translates  programs  written  in  DMATRAN  into  pure  FORTRAN  programs.  STRUCTRAN-2 
translates  ("structurizes")  programs  written  in  FORTRAN  into  a structured  form 
expressed  in  DMATRAN. 

The  STRUCTRAN-2  software  has  been  developed  on  the  Control  Data  Corpora- 
tion (CDC)  6400  computer  at  the  General  Research  Corporation  (GRC;  facility 
in  Santa  Barbara,  California.  Following  this  software  development  phase, 
STRUCTRAN-2  has  been  installed  on  the  UNIVAC  1108  at  the  Defense  Mapping  Agency 
Aerospace  Center  (DMAAC),  St.  Louis,  Missouri.  The  software  development  phase 
utilized  the  CDC  FORTRAN  run  compiler,  version  2.3  under  the  GO LET A operating 
system  for  the  CDC  6400.  The  installation  phase  utilized  the  UNIVAC  1108 
FORTRAN  V compiler  with  the  UNIVAC  1108  operating  system. 

This  document  describes  the  overall  design  of  the  STRUCTRAN-2  software 
(Sec.  2),  and  the  organization  and  contents  of  the  STRUCTRAN-2  data  base 
(Sec.  3).  The  STRUCTRAN-2  software  components  are  described  in  Sec.  4.  A 
narrative  description  of  each  module  contained  in  the  components  is  included 
in  Appendix  A.  The  details  of  the  STRUCTRAN-2  organization,  intermodule  depen- 
dencies, and  intramodule  control  structure  are  contained  in  the  STRUCTRAN-2 
Software  Analysis  Collection  documentation. 
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STRUCTRAN-2  PROGRAM  OVERVIEW 


2.1  STRUCTRAN-2  PROGRAM  ORGANIZATION 

STRUCTRAN-2  is  organized  into  eight  components,  each  of  which 
consists  of  a hierarchy  of  interrelated  modules  with  specific  pro- 
cessing capabilities.  These  components  are  used  in  a definite  order  to 
translate  FORTRAN  to  DMATRAN . Table  2.1  shows  the  STRUCTRAN-2  components; 
detailed  descriptions  of  each  component's  function  appear  in  Sec.  A. 


TABLE  2.1 

STRUCTRAN-2  COMPONENTS 


Component 

Memory  (Octal) 

Function 

STRUCO 

77K 

Storage  Manager,  Data  Base 
Services,  Support  Subroutines, 
and  Control 

STRUC1 

3K 

Initialization  of  Data  Base 

STRUC2 

1AK 

Lexical  Analysis 

STRUC3 

1AK 

FORTRAN  Parsing 

STRUCA 

13K 

Graph  Identification 

STRUC5 

16K 

Graph  Analysis 

STRUC6 

20K 

Formation  of  DMATRAN  Program 

STRUC7 

5K 

Print/Punch  Services 

The  UN1VAC  installation  of  STRUCTRAN-2  operates  in  an  overlay  mode. 
STRUCO  is  the  root  of  the  overlay  structure  and  causes  each  of  the  other 
components  to  be  loaded  and  executed  in  the  proper  order.  All  routines 
required  by  two  or  more  components  are  included  in  STRUCO.  STRUCO  is 
always  in  core,  with  at  most  one  other  component.  The  approximate  size 
of  each  component  as  overlayed  on  the  UNIVAC  1108  is  shown  in  Table  2.1. 

The  code  for  all  STRUCTRAN-2  components  was  developed  by  GRC  personnel 
utilizing  structured  programming  techniques  throughout. 
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2.2  STRUCTRAN-2  OPERATION 


Each  STRUCTRAN-2  component  is  devoted  to  a unique  task;  communication 
between  components  is  through  a common  data  base  called  a data  base  library. 
The  data  base  library  is  initially  created  by  STRUC1 , modified  by  STRUC2, 
STRUC3,  STRUC4 , and  STRUC5 , and  utilized  by  STRUC6  and  STRUC7 . The  sequence 
in  which  the  components  are  executed  is  shown  in  Fig.  2.1,  which  uses  DMATRAN 
to  express  a high-level,  structured  representation  of  STRUCTRAN-2  operation. 
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PROCEDURE  STRUCTRAN?  CONTROL 

INVOKE  < STRUC1  - INITAL1ZE  DATA  BASE  ) 

00  WHILE  < END  OF  THE  CURRENT  MODULE  HAS  NOT  BEEN  REACHED  ) 

NVOKE  ( STRUC2  - PERFOPM  LEXICAL  SCAN  OF  MODULE  TO  IDENTIFY 
KEYWORDS  AND  VARIABLES  ) 

F ( END  OF  THE  CURRENT  MODULE  HAS  NOT  BEEN  REACHED  ) THEN 

INVOKE  ( STPUC3  - PERFORM  PARSE  OE  MODULE  TO  IDENTIFY  STATEMENT 
TYPES  ) 

( STRUC7  - PRINT  FORTRAN  MODULE  ) 

IDENTIFY  PROGRAM  GRAPH  ) 

INVOKE  ( STRUC5  - RECOGNIZE  STRUCTURED  FORMS  IN  PROGRAM  GRAPH  AND 
ABSTRACTLY  REPRESENT  AS  A STRUCTURED  PROGRAM  ) 

INVOKE  ( STRUCfe  - USE  STRUCTURED  FORM  REPRESENTATION  TO  REWRITE 
MODULE  IN  DMATRAN  ) 

INVOKE  ( STRUC7  - PUNCH  DMATRAN  MODULE  ) 


INVOKE 
INVOKE  ( STRUCK 


END  IE 
END  WHILE 
END 


Figure  2.1.  Description  of  STRUCTRAN-2  Control 


STRUCO  consists  of  the  main  program  for  STRUCTRAN-2,  all  the  routines 
it  causes  to  be  loaded,  and  all  routines  which  are  referred  to  directly  or 
indirectly  in  two  or  more  components.  Since  STRUC1  through  STRUC7  communicate 
through  the  data  base  library,  all  data  base  service  routines  and  storage 
manager  routines  are  in  STRUCO.  Also  all  support  routines  performing  commonly 
utilized  functions  are  in  STRUCO.  The  data  base  library  is  initialized  by 
STRUC1.  STRUC2  inputs  the  FORTRAN  text  to  be  structurized , adding  it  to  the 
data  base  library  after  performing  a lexical  analysis  to  recognize  FORTRAN  key 
words  and  variables.  STRUC3  reads  the  lexically  analyzed  text  from  the  data 
base  library  and  parses  each  statement,  adding  statement  type  and  symbol  usage 
information  to  the  data  base  library,  STRUC4  utilizes  all  of  the  information 
accumulated  so  far  in  the  data  base  library  to  identify  the  program  graph  of  the 
module.  This  is  added  to  the  data  base  library  in  tabular  form.  STRUC5  per- 
forms a reduction  type  analysis  to  recognize  structured  forms  in  the  graph  of 
the  module.  It  updates  the  information  on  the  data  base  library  to  indicate 
the  structured  form  of  the  module.  STRUC6  uses  this  representation  to  build 
the  DMATRAN  version  of  the  original  FORTRAN  program.  STRUC7  is  used  to 
print  and  punch  statement  text  from  the  data  base  library.  Since  many  rou- 
tines may  be  contained  in  a single  UNIVAC  1108  FORTRAN  V program  unit  (due  to 
the  internal  subroutine  capability)  the  iteration  indicated  in  Fig.  2.1  is 
necessary  to  process  modules  consisting  of  more  than  one  routine. 
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2.3  STRUCTRAN-2  DATA  STRUCTURES 


In  performing  its  structurization  STRUCTRAN-2  utilizes  the  data  struc- 
tures shown  in  Table  2.2.  The  FORTRAN  source  text  to  be  structurized  is  input 
on  LIN.  A random  access  data  base  library  is  created  on  LIBNEW.  The  FORTRAN 
source  is  listed  on  LOUT,  translated  DMATRAN  source  is  written  on  LPUNCH,  and 
a high  level  audit  trail  is  output  to  LDEBUG.  File  activity  performed  by 
STRUCTRAN-2  is  summarized  in  Fig.  2.2. 

Examples  of  each  type  of  output  which  is  meaningful  to  the  user  appear 
in  the  STRUCTRAN-2  User's  Manual. 


TABLE  2.2 

FILES  USED  IN  STRUCTRAN-2  PROCESSING 


Logical 

Unit 

Number 

File 

Name 

Data 

St  ructure 

Mode 

Storage 

Form 

Record 

Format 

Recommended 

Allocation 

6LLIBNFW 

LIBNEW 

FORTRAN 
Piogram 
Descript  ion 

Binary 

Random 

System  Standard 

(Ins ta Hat  lon-depcndcnt ) 

Scratch  file  (mass  storage) 

61-OUTPUT 

LOUT 

Reports 

BCD 

Sequential 

Maximum  132  chaiactcrs 
per  line 

System  printer 

6LLDEBUC 

LDEBUG 

Reports 

BCD 

Sequent lal 

Maximum  132  characters 
per  line 

Scratch  file  (mass  storage) 

6LLPUNCH 

LPUNCH 

DMATRAN 
Translat  ed 
Text 

BCD 

Sequent lal 

Card  Image 

System  punch  or  permanent 
file* 

5L1NPUT 

LIN 

FORTRAN 

Text 

BCD 

Sequent lal 

Card  image 

Card  reader  or  permanent 
file* 

Permanent  files  Bust  have  been  previously  created. 

VO" E : The  above  files,  along  with  other  intermediate  scratch 

fi1es,  are  defined  in  subroutine  FLINIT. 
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3 STRUCTRAN-2  DATA  BASE 


3 . 1 INTRODUCTION 

The  STRUCTRAN-2  system  is  intended  to  provide  the  nucleus  of  a general- 
ized system  for  translation  of  FORTRAN  programs  to  DMATRAN.  To  provide  the 
greatest  possible  flexibility  in  supporting  STRUCTRAN-2  translation  objectives, 
it  is  necessary  to  preserve  detailed  information  about  the  internal  structure 
and  organization  of  individual  elements  of  the  program  text  being  analyzed. 

For  convenience,  we  refer  to  a UNIVAC  1108  FORTRAN  V program,  an  internal  or 
external  subroutine  or  function  as  a "module".  All  of  the  information  neces- 
sary to  deal  with  any  attribute  or  characteristic  of  any  module  is  embodied 
in  a series  of  tables  of  specific  format.  The  tables  which  describe  a parti- 
cular module  are  treated  as  a whole,  in  the  sense  that  it  will  be  the  case 
that  one  table's  information  is  only  meaningful  in  terms  of  the  information  in 
other  tables.  The  interrelationship  between  the  various  types  of  tables  and 
the  general  form  of  information  stored  in  each  table  is  given  below. 

To  avoid  core  limitations  in  the  size  and  number  of  modules  processed, 
a virtual  storage  system  is  used  to  store  the  tables.  Tables  are  assigned  to 
predefined  blocks  (called  fragments)  as  they  are  created  in  working  storage. 

As  working  storage  becomes  full,  fragments  are  written  to  a random  library  by 
the  data  manager.  When  subsequent  references  are  made  to  a table  no  longer  in 
working  storage,  the  data  manager  retrieves  the  proper  fragment  from  the 
library  and  copies  it  into  working  storage. 

3.2  TABLE  TYPES 

The  tables  created  and  used  by  STRUCTRAN-2  collectively  define  all  in- 
formation STRUCTRAN-2  has  about  a system  of  modules  under  analysis  and  the 
information  pertinent  to  each  module  within  the  system.  It  is  assumed  that 
all  this  information  is  kept  in  one  STRUCTRAN-2  library.  The  tables  used  by 
STRUCTRAN-2  can  then  be  categorized  in  the  following  way: 

a.  Those  which  describe  the  contents  of  the  library  (system  tables) 

b.  Those  which  pertain  to  specific  modules  (module  tables) 

c.  Those  which  support  token  storage  (text  tables) 

Each  table  is  in  one  of  two  formats:  fixed  length  (meaning  a fixed  number  of 

words  per  entry  or  block)  or  variable  length  (meaning  a variable  number  of 
words  per  entry  or  block).  Each  table  is  divided  into  fixed-length  segments 
called  fragments;  one  fragment  is  the  unit  of  transfer  to  the  auxiliary  stor- 
age device  which  holds  the  library.  We  will  discuss  each  type's  general 
nature  in  turn.  Specific  uses  of  each  word  of  a table  are  found  in  the  table 
format  on  the  referenced  page. 

3.2.1  Permanent  System  Tables 

The  tables  used  to  describe  library  contents  are  listed  below. 

Library  Header  Table  (LHT) : fixed  table.  The  Library  Header  Table  con- 
tains a fixed  set  of  global  library  data  that  is  the  same  for  all  libraries. 

The  table  is  always  located  in  the  first  twenty  words  of  the  random  file  that 
contains  the  library  and  provides  pointers  to  the  Entry  Point  Table,  which  is 
the  directory  table  for  the  library. 

6 


Module  Location  Table  (MLT) : fixed  table.  The  Module  Location  Table 

stores  the  library  address  and  working  storage  address  of  each  module  descrip- 
tor block  known  to  the  system.  The  MLT  is  not  located  on  the  library,  but  is 
constructed  in  working  storage  as  analysis  proceeds.  The  MLT  is  in  ascending 
order  by  module  number  assigned  at  run  time. 

Entry  Point  Table  (EPT):  fixed  table.  The  Entry  Point  Table  is  used 

for  storing  thi-  names  and  locations  of  modules  within  the  library.  It  is 
searched  for  finding  the  run-time  module  number  of  a named  module.  The  en- 
tries in  the  EPT  are  created  in  the  order  in  which  modules  are  assigned  to 
the  library. 

Fragment  Directory  Table  (FDT) : fixed  table.  The  Fragment  Directory 

Table  is  used  to  link  library  fragments  belonging  to  one  table.  It  is  also 
used  to  store  the  working  storage  location  of  a fragment  if  it  is  resident  in 
core.  The  entries  in  the  FDT  are  in  fragment  order. 

3.2.2  Module  Tables 


The  single-module  tables  and  blocks  describe,  in  aggregate,  all  of  the 
fixed  characteristics  of  each  FORTRAN  module.  These  tables  are  listed  below: 

Module  Descriptor  Block  (MDB) : fixed  table.  The  Module  Descriptor  Block 

specifies  certain  parameters  pertaining  to  a single  module  in  the  system.  It 
also  contains  Library  Manager  pointers  to  other  tables  pertaining  to  this 
module.  The  MDB  must  be  present  in  the  working  storage  when  using  any  of  the 
other  module  tables.  There  is  only  one  entry  for  each  module  in  this  table, 
hence  there  is  no  implied  order. 

Statement  Descriptor  Block  (SDB) : fixed  table.  The  Statement  Descriptor 

Block  table  describes  the  attributes  of  each  statement  within  the  pertinent 
module.  There  is  an  entry  in  the  table  for  each  statement,  containing  type 
codes,  length  information,  block  structure  pointers  and  other  descriptive  in- 
formation. The  SDB  table  is  in  ascending  order  by  statement  number. 

Statement  Block  (SB) : variable  table.  The  Statement  Block  table  con- 

tains the  parsed  source  text  ir.  token  pointer  form  for  the  pertinent  module. 
There  is  one  Statement  Block  for  each  statement  in  the  source  program  text; 
each  block  is  a variable  length  word-pair  list.  In  addition  to  the  source  text 
which  is  stored  as  a string  of  token  pointers,  the  Statement  Block  contains 
token  keyword  descriptors  and  pointers  to  the  Symbol  Table.  The  SB  table  is 
in  ascending  order  by  statement  number  and  by  word-pair  within  a statement. 

Symbol  Table  (STB) : fixed  table.  The  Symbol  Table  contains  an  entry 

for  each  symbol  defined  within  the  pertinent  module.  Type,  mode,  pointers 
and  other  descriptive  information  for  each  symbol  are  recorded. 

DD-Path  Table  (DPP) : fixed  table.  The  DD-Path  (Decision-to-Decision 

Path)  Table  contains  the  module's  program  graph.  There  is  an  entry  for  each 
decision-to-decision  path  in  the  program,  with  the  beginning  statement  number, 
the  ending  statement  number  and  other  useful  information.  The  DDP  table  is 
in  ascending  order  by  DD-path  number. 
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DD-Path/Statement  Table  (PS):  variable  table.  The  DD-Path/Statement 

Table  has  a variable  length  entry  for  every  DD-path  in  the  pertinent  module. 
Each  entry  is  the  list  of  statements  comprising  the  corresponding  DD-path. 

The  DS  Table  is  in  ascending  order  by  DD-path  number,  and  in  statement  execu- 
tion order  within  a DD-path. 

3.2.3  Temporary  Module  Tables 

Various  tables  are  used  internally  in  given  components  and  do  not  con- 
tain information  passed  to  other  components.  Such  temporary  tables  provide 
efficiency  in  operation  and  flexibility  in  size  constraints.  These  tables  are 
listed  below: 

Label/Statement  Table  (LBTL) : fixed  table.  The  Label/Statement  Table 

contains  an  entry  for  each  labeled  executable  statem* at  in  the  module.  Given 
a label  in  some  form  of  GOTO  statement,  it  allows  the  corresponding  statement 
number  to  be  efficiently  found. 

Current  Program  Graph  Tables  (ITEMP  and  JTEMP) : fixed  tables.  The 

Current  Program  Graph  Tables  are  used  in  the  graphical  reduction  process. 

Program  Graph  Connection  Table  (CN) : variable  table.  The  Program  Graph 

Connection  Table  is  used  to  efficiently  store  and  retrieve  information  describ- 
ing the  current  program  graph. 

Program  Graph  Connection  Directory  Table  (CNAX) : fixed  table.  This 

table  serves  as  the  directory  for  the  variable  length  CN  table. 

3.2.4  Text  Tables 


The  system  breaks  down  the  module  source  text  into  its  individual  tokens 
(keyword,  variable  name,  delimiter,  constant, operator)  and  stores  the  text  by 
saving  these  tokens.  The  character  strings  that  make  up  the  tokens  are  stored 
individually  in  a token  list  for  an  entire  library,  and  the  table  entries 
that  refer  to  tokens  contain  pointers  to  the  particular  character  strings  in 
the  token  list.  The  following  permanent  tables  are  used  for  storing  text  in 
this  way.  Figure  3.1  shows  pointer  relationships  between  tables. 

Token  String  Table  (TKL) : variable  table.  The  full  text  of  each  token 

is  stored  in  a table  entry  of  a variable  number  of  words.  On  the  UNIVAC  1108 
with  6 characters  per  word  all  strings  of  1 to  6 characters  are  stored  in  one 
word  (with  blank  fill),  7 to  12  characters  in  two  words,  and  so  on.  The 
string  address  is  the  word  number  (starting  from  the  beginning  of  the  list) 
of  the  first  word  of  the  table  entry.  No  other  information  but  character 
strings  is  stored  in  the  token  string  table. 

Token  Directory  Table  (TOK) : fixed  table.  To  simplify  and  speed  up 

Token  String  Table  searches,  a Token  Directory  Table  is  created.  This  fixed 
table  contains  four  words  per  entry  describing  a particular  Token  String  Table 
entry : 


Word  1 contains  one  word  of  token  text  (UNIVAC  1108  implementation 

has  the  first  six  characters  of  the  string) 
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Pointer  Relationships  for  Character  String 
Storage  and  Retrieval 


/ 


Word  2 contains  the  number  of  characters  in  the  complete  string  in 

the  Token  String  Table 

Word  3 contains  the  word  address  of  the  first  word  of  the  string 

Word  4 contains  the  number  of  words  in  the  table  entry 

Fixed  Pointers.  All  tokens  that  are  known  to  appear  in  text  are  stored 
when  the  system  is  initialized  (the  specific  strings  are  given  in  the  common 
block  descriptions  found  on  pages  20  to  26  following) . These  simple  integer 
variables  contain  the  token  directory  index  for  the  specified  character  string. 
Thus  when  a fixed  string  is  encountered  in  text  analysis,  the  directory  table 
and  string  tables  are  established.  For  example,  when  the  string  "PROGRAM"  is 
encountered  and  is  to  be  used  in  word  2 of  a Module  Descriptor  Block,  all  that 
need  be  done  is  store  the  contents  of  IXPRGM  into  word  2 of  the  table  entry. 

3.3  TABLE  FORMATS 

Each  STRUCTRAN-2  table  consists  of  one  or  more  blocks,  each  of  which  con- 
sists of  one  or  more  items.  An  item  is  a word  which  is  used  as  one  of  three 
types:  an  integer,  a pointer  to  an  entry  in  another  table,  or  a Hollerith 

character  string.  The  design  of  the  tables  ensures  a high  degree  of  machine 
transportability:  internally  table  values  are  right-justified  in  the  machine 

word  unless  otherwise  noted.  Also  all  Hollerith  character  strings  are  stored 
in  one  table  (the  Token  String  Table) . 

In  the  remainder  of  this  section,  the  contents  of  each  table  are  defined. 
Successive  lines  for  a given  item  in  the  table  descriptions  imply  alternate 
meaning  or  value. 
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•OK  «T»ot 

CCCCCCCuCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

cccccccrcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C PERMANENT  system  tables 

cccccccrrcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C IIBRARY  HEADER  TABLE 

C word  DEFINITION 

C l PASSWORD  NAME  OF  LIBRARY 

C ? ACCESS  DIRECTIVE  FOR  A RUN  - HOLLER  I TH (M>  FORMAT 

C ...  3HNEW  -NOT  WRITTEN  BEFORE 

C ...4MREAD  -CANNOT  BE  CHANGEO  DURING  RUN 

C ...  3HR/W  -CAN  BE  CHANGEO  DURING  RUN 

C 3 

C A WORDS  USED  ON  LIBRARY 

C S SIZE  OF  LIBRARY  FRAGMENT 

C 8 NUMBER  OF  MODULES  ON  LIBRARY 

C 7 

C 8 FIRST  MOB  FRAGMENT  ON  LIBRARY 

C V NUMBER  OF  fragments  USED  ON  LIBRARY 

C 10  NUMBER  OF  ENTRIES  IN  FRAGMENT  OF  EPT 

C 11  FIRST  FDT  FRAGMENT  ON  LIBRARY 

C 1?  NUMBER  OF  ENTRY  POINTS  IN  MODULES  ON  LIBRARY 

C 13  NUMbER  OF  ENTRIES  IN  FRAGMENT  OF  EOT 

C 1 A FIRST  EPT  FRAGMENT  ON  LIBRARY 

C 15 

C 16 

C 1 7 

C 18  DATt  library  opened  new 

C 19  total  number  of  times  library  written 

C ?i)  DATE  LAST  CLOSED  AFTER  BEING  CHANGED 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C MODULE  LOCATION  TABLE 

C WORO  DEFINITION 


C 1 LIBRARY  ADDRESS  OF  MOOULE  MDB  INTEGER 

C 2 CORE  ADDRESS  OF  MODULE  MDB  ( 0 IF  NOT  RESIDENT  ) INTEGER 

CLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C ENTRY  POINT  TABLE 

C WORO  DEFINITION 

C 

C 
C 

c 
c 
c 
c 
c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C FRAGMENT  DIRECTORY  TABLE 

C WORD  DEFINITION 

C 

C 1 POINTER  TO  NEXT  LIBRARY  FRAGMENT  OF  TABLE  ( 0 IF  NONE  I 

C INTEGER 

C ? CORE  FRAGMENT  NUMBER  IF  LIBRARY  FRAGMENT  RESIDENT  INTEGER 


1 NAKE  OF  ENTRY  POINT  TOR  POINTER 

2 RUN-TIME  number  OF  MOOULE  INTEGER 

3 NAME  OF  MODULE  OWNING  ENTRY  POINT  TOK  POINTfR 

4 STATEMENT  NUMBER  ON  WHICH  ENTRY  OCCURS  SOB  POINTER 

5 NUMBCR  OF  ENTRY  WITHIN  MOOULE  INTEGER 

a incex  of  module  mob  on  library  integer 

7 library  A00RESS  FOR  mob  OF  MOOULE.  INTEGER 


ooonr»oonr>ooor>nooooooonor)oonr>r>onni)Oor>rvr>  onoooo  no  ooooo 


r 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccctcccccccccrcccc 

cccccccccccccccccccccccccccrccccccccccccccccccccccccccccccccccccccccccc 

C PERMANENT  MODULE  TABLES 

ccccrccccccccccecccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C MODULE  descriptor  table 

module  OESCBIPTOH  BLOCK  (MOB).  there  is  one  mob  for  each  mooule 
on  A library.  EACH  MDB  CONTAINS  100  WORDS  OF  INFORMATION  DESCRIBING 
NUMERIC  PROPERTIES  OF  THE  MODULE  OR  SERVING  AS  POINTERS  TO  OTHER 
TABLES  DESCRIBING  the  MODULE  in  GREATER  DETAIL.  THEY  HAVE  The 
FOLLOWING  MEANING.  . . 

WORD  DEFINITION 


1 

? 

3 


A 

5 

6 

7 

8 
9 

10 
1 1 

I 2 

13 

14 

15 

16 
1 7 
IB 
1 9 
70 
?1 
7? 

73 

74 

75 

76 

77 

78 

79 
TO 
'll 
3? 

T3 

34-50 

Sl-100 


NAME  OF  MODULE  TOK  POINTER 

TYPE  OF  MODULE!  I XPBGM  , IXSUB  . 1XFNCT  . 1XRLCK  ) TOK  POINTtP 
MODE  OF  FUNCTION  ( IXREAL  . IXINTG  . IXLGCL  . IXCMPX  . 

IXDBL  . IXTPLS  . I XBL  IF  NOT  A FUNCTION). 

TOK  POINTER 


TOTAL  NUMBER  OF  STATEMENT  WORD  PAIRS  INTEGER 

NUMBER  OF  STATEMENTS  (NUMBER  OF  SDB  ENTRIES)  INTEGER 
NUMBER  OF  SYMBOLS  (NUMBER  OF  STB  ENTRIES)  INTEGER 
NUMBER  OF  ARGUMENTS  IF  SUBROUTINE  OR  FUNCTION  INTEGER 
NUMBER  of  first  EXECUTABLE  STATEMENT  INTEGER 


number  of 

ENTRIES 

TO  MODULE 

(IF 

SUBROUTINE 

OR  FUNCTION) 

INTEGER 

number  of 

DEPENDENT  MODULE 

TABLE 

BLOCKS 

INTEGER 

number  of 

LANGUAGE 

DD-PATH 
DIALECT ( 

BLOCKS 
IXUNV  ) 

INTEGER 
TOK  POINTER 

language 

( IXFTRN 

» 

TOK  POINTER 

TOTAL  NUMBER  OF  WORDS  IN  OS  TABLE  INTEGER 
NUMBER  OF  EXTERNALS  integer 

NUMBER  OF  EXECUTABLE  STATEMENTS  INTEGER 
NUMBER  OF  COMMON  STATEMENTS  INTEGER 
NUMBER  OF  EQUIVALENCE  STATEMENTS  INTEGER 
number  OF  READ  STATEMENTS  INTEGER 
NUMBER  OF  WRITE  STATEMENTS  INTEGER 


SPARE 

RESERVED  FOR  STORAGE  MANAGER  USE 

TB  ORIGIN 
SB  ORIGIN 
SDB  ORIGIN 
STB  ORIGIN 
DDP  ORIGIN 
OS  ORIGIN 
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CCCCCCCCCCCCCCCCCCCCCCCCuCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C STATEMENT  DESCRIPTOR  TABLE 

STATEMENT  DESCRIPTOR  BLOCK  (SDH).  THERE  IS  ONE  SOB  FOP  EACH  STATEMENT 
IN  A MODULE.  EACH  SOB  CONTAINS  10  WORDS  OF  INFORMATION  DESCRIBING 
THE  STATEMENT.  THE  STATEMENT  SEQUENCE  NUMBER  SERVES  AS  THE  INOEx 
TO  THIS  TABLE. 

WORD  DEFINITION 


1 STATEMENT  LABEL  TOk  POINTER 

? TYPE  OF  STATEMENT  - COMPARE  WITH  THE  TOKEN  POINTER  VARIABLES 

INDICATED.  HOLLERITH  VALUE  ASSOCIATED  WITH  EACH  TOKEN  POINTER 
VARIABLE  IS  SHOWN. 

TYPE  TKL  HOLLERITH 

POINTER  VALUE 
VARIABLE 


ARITHMETIC  IF 

ASSIGN 

ASSIGNMENT 

ASSIGNED  GOTO 

ASSIGNEO  GOTO 

BACKSPACE 

BLOCK 

A 8LOCKOATA 

N BUFFER  IN 

S BUFFEROUT 

I CALL 

CALL-EXIT 

COMMON 

X COMPLEX 

3 COMMENT 

. COMPUTEO  GOTO 

V CONTINUE 

DATA 

DIMENSION 
F DOUBLE 

0 . DO 

R END 

T ENO-TOKEN 

P EQUIVALENC 

A EXIT 

N EXTERNAL 

FORMAT 
FUNCTION 
S GOTO 

T LOGICAL  IF 

A IF-ASSION 

T IF- ASSIGNMENT 

E I F-ASS1GNEO  GOTO 

M IF-BACKSPACE 

E IF-CALL 

N IF  CALL  EXIT 

T IF-ENOFILE 


I F 3 

bhif-thwee 

I X ASS 

NHASSIGN 

IXASGM 

10HASSIGNMENT 

iagt 

iohgoto-assgn 

IXASGT 

BHASS-GOTO 

IXBKSP 

rhbackspace 

IXBLK 

5HBL0CK 

IXBLCK 

9HHL0CK0ATA 

IXBUFI 

BHBUFFER1N 

1XBUFO 

9HBUFFER0UT 

ixcall 

AHC  ALL 

ixcale 

9HC ALL-E  X I T 

IXCMMN 

BHCOMMON 

IXCMPX 

7HCOMPLEX 

IXCMMT 

7HCOMMENT 

ICGT 

10HCOMP.  GOTO 

ICONT 

BHCONTINUE 

1XDATA 

AMOATA 

IXDMSN 

9H0IMENS ION 

ixdbl 

6HD0UBLE 

1 XDO 

2HDO 

IE  NO 

3HENO 

IXENDT 

9HEND-T0KEN 

IXEQVL 

10HEQUI V»LENC 

IXEXIT 

ahexit 

1XEXTN 

bhexternal 

IXFRMT 

6HF0RMAT 

IXFNCT 

BMFUNCT ION 

IGT 

AHGOTO 

IFT 

?HIF 

IFASS 

9HIF-ASS IGN 

IFASGM 

10HIF-ASSGMNT 

IFAGT 

10HIF-ASSGN-G 

IFBACK 

I0HIF-8ACKSPA 

ifcall 

7HIF-CALL 

IFCLXT 

1 OHIFCALLEX I T 

IFENDF 

IOHIFENOFILE 

onooonnooooooo 


c 

if-goto 

1FGT 

c 

IF  COMPUTED  GOTO 

ifgtc 

c 

T 

IF -IF 

IX  IF 

c 

r 

IF-PAUSE 

IFP 

c 

p 

IF-PRINT 

ifprnt 

c 

E 

IF-PUNCH 

IFPNCH 

c 

s 

IF-REAO 

IFREAD 

c 

if-remind 

IFRMNO 

c 

if-return 

IFR 

c 

IF-STOP 

IFS 

c 

1F-MRITE 

ifmrte 

c 

INTEGER 

IX1NTG 

c 

I/O-MRITE 

I X I OMR 

c 

I/O-ACTION 

IXIOAC 

c 

I/O-READ 

IXIORD 

c 

LOGICAL 

IXLGCL 

c 

PAUSE 

1XPAUS 

c 

PRINT 

IXPRNT 

c 

PUNCH 

IXPNCH 

c 

READ 

IXREAO 

c 

real 

IXREAL 

c 

RETURN 

IRET 

c 

REMIND 

IXRMND 

c 

tmo  branch  logical  if 

IF2 

c 

STOP 

ISTOP 

c 

STATEMENT  function 

IXSTFX 

c 

SUBROUTINE 

IXSUB 

c 

TO 

IXTO 

c 

c 

MRITE 

1XMRIT 

C 

E 

MULTIPLE  ASSIGNMENT 

IXASNM 

C 

X 

BUFFER 

IXBFFR 

C 

T 

BUFFER  I 

1FBUF1 

C 

E 

BUFFERO 

IFBUFO 

C 

N 

DECODE 

IXDCO 

C 

S 

ENCODE 

1XENCD 

C 

I 

ENTRY 

IENT 

c 

0 

IF -DECODE 

IFDCDE 

C 

N 

if-encooe 

IFENCD 

c 

S 

namelist 

IXNLST 

c 

c 

program 

IXPRGM 

ACCUMULATOR  OVERFLOM 

IXACUM 

DIVIDE  CHECK 

IXDVDE 

c 

END -OF -FILE 

IXEOF 

0 

if-end-of-file 

IFEOF 

c 

if-unit 

I fun i t 

- 

1F-ACCUMULTOR  OVERFLOM 

1 F A 

p 

IF-DI V IDE  CHECK 

IFD 

u 

IF-OUOTIENT  CHECK 

IFO 

N 

1 F -SENSE -L IGHT 

IFSL 

IF-SENSE-SMITCH 

IFSS 

INPUT/OUTPUT  CHECK 

IXIOCK 

LIGHT 

IXLIGT 

SENSE 

ixsens 

SENSED IGHT 

IXSNSL 

7Mir-G0T0 

9HIF-GOTO-C 

5HIF-IF 

BHIF-PAUSE 

BHIF-PRINT 

BHlF-PuNCH 

7HIF-READ 

9HIF-REMIND 

9HIF-RETURN 

7HIF-ST0P 

BHIF-MR I TF 

7HINTEGER 

9H1/0-MRITF 

lOHI/O-tCTION 

BHI/O-READ 

7HL0GICAL 

8HPAUSE 

5HPRINT 

SHPUNCM 

ahread 

ahreal 

6HRE  TURN 
6HREMIND 
6HIF-TM0 
AHSTOP 

10HSTMT.  FUNC 

IOHSURROUTInE 

?HTO 

5HMRITF 


10HASSGN-MULT 
GHHuFFER 
1 0H1F -BUFFER  1 
lOHIF-BUFFERO 
6HDEC0DE 
6HENC0DE 
5MENTRY 
9H IF -DECODE 
9HIF-ENC00E 
8HNAMEL I ST 
7HPROGPAM 


llHACCUMULATOR 
6H0IVIDE 
THE  OF 
6HIF-E0F 
7HIF-UN I T 
10HIF-ACCUMUL 
9MlF“DI VIDE 
I OH IF “QUO T IEN 

10HIF-SENSE-L 
10HIF-SENSE-S 
7HI0CHECK 
5HLIGHT 
5HSENSF 
1 OHSENSEL IGHT 
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r 
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T 


P 

n 

h 
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SWITCH 

UNIT 

IXSWCH 

IXUNIT 

SHSWITCH 
4HUNI  T 

CALL  WITH  MULTIPLl  RETURNS 

ICALLR 

iohcall-retrn 

IF-CALL  WITH  MULTIPLE  RF  T URNS 

IFCLLR 

QHIF-CALL-P 

IMPLICIT 

IXIMPL 

HHIMPL ICI T 

level 

ixlfvl 

SHI  EVE L 

OVERLAY 

IXOVLY 

7HOVERI AY 

SUBROUTINE  WITH  MULTIPLE  RETURNS 

IXSUBR 

1 OHSllHR-RETRN 

hYTE 

1XBYTE 

4HBYTE 

define 

IXOEFI 

SHOE  FINE 

DEI INL-RANOOM  FILE 

IXDFRN 

I0HDFF INE-RAN 

FILE 

IXF ILE 

4HF  ILE 

F I NO 

IXF I NO 

4Hf  IND 

find-random  recoro 

I XFDRN 

HHF INO-RAN 

I F -R£ AD  WITH  CONDITIONAL  BRANCHES 

1FRDC 

RHIF-RE  AD-C 

IF-WR1TE  WITH  CONDITIONAL  HRANCHESIFWTC 

10H1F-WRITE-C 

INTEGER  (^  bYTES) 

IXINT? 

RHINTEGER? 

LOGICAL  (KBYTES) 

IXLGCI 

rhlogicali 

READ  WITH  conditional  branches 

IREAOC 

9HRE  AD-CONO 

READ-RANDOM  RECORD 

IXRDRN 

RHRE AD-RAN 

real  (4  BYTES) 

IXRL4 

6HREAL4 

REAL  <B  BYTES) 

IXRLB 

GHRE  ALH 

WRITE  WITH  CONDITIONAL  BRANCHES 

IWRTEC 

1 OHWR 1 TE -COND 

■»  STATEMENT  TYPE  CODE  - TYPE  OF  STATEMENT  FOR  RXVP  PROCESSING 

FUNCTIONS. 

CODE  INTEGER 

0 = NOT  PARSED  OR  COMMENT 

1 = NON-EXECUTABLE 

100  * EXECUTABLE  ( NON-DECISION  ) 

?oo  = executable  < oecision  > 

4 LENGTH  of  statement  BLOCK  (IN  TOKENS)  INTEGER 

5 SB  ORIGIN  Of  STATEMENT  TOKEN  LIST  SH  POINTER 

6 INTRA-STATEMENT  STRUCTURE  POINTER  SDB  POINTER 

...FOR  FORTRAN... 

FOR  IF  STATEMENTS.  The  WORDPA1R  InOEX  WHERE 

CONSEQUENCE  of  if  begins,  or  first  label 
FOR  DO  STATEMENT.  THE  STATEMENT  NUMBER  OF  TARGET 
CONTINUE 

FOR  DO-TARGET  CONTINUES.  THE  STATEMENT  NUMBER  OF  THE 
CORRESPONDING  DO  STATEMENT. 

7 POINTER  TO  SYMBOL  TABLE  LOCATION  FOR  LABEL  STB  POINTER 

A SPARE 

9 SPARE 


-53 
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10  SPARE 

ccccccccccccecrccccccccccccr.cccctccccccccccccctctccrcccrtccccccccccccccccuctctc 

C STATEMENT  TABLE 

STATEMENT  block  (SB).  THEME  IS  ONE  SB  ENTRY  FOB  EACH  STATEMENT  IN  THE 
MODULE.  THE  LENGTH  OF  THE  SB  ENTRY  DEPENDS  OE  THE  NUMHE R OE  TOKENS 
IN  THE  STATEMENT.  E OP  EXAMPLE  . . . 

IF  ( IX  .EO.  JX  ) GOTO  100 

CONSISTS  OF  8 TOKENS  AND  IS  STORED  IN  SB  FORMAT  AS  . . . 


IF 


KEYWORD 


DELIMITER 


IX 


..ED. 


STR  PT. OPERATOR 


JX 


STR  PT 


DELIMITER 


GOTO 


KEYWORD 


100 


STB  PT 


FACH  TOKEN  IS  REPRESENTED  AS  A wORO  PAIR.  THE  TOP  ELEMENT  OF  EACH 


WORD  PAIR  IS  A TOK  POINTER  TO  I HE  ORIGINAL  SOURCE  TEXT  FOP  THE  TOKEN 
(STORED  IN  THE  TkL  TABLE).  THE  BOTTOM  WORD  PAIR  IS  AN  STB  POINTER 
IF  THE  TOKEN  REPRESENTS  A SYMBOL  WHICH  WAS  ENTERED  IN  THE  SYMHOL 
TABLE,  OR  A TOK  POINTER.  THE  STATEMENT  SEQUENCE  NUMBER  SERVES  AS  THE 
Index  to  THIS  table. 


WORD  DEFINITION 


THERE  IS  A WOROPA1R  FOR  EACH  TOKEN  IN  THE  STATEMENT  TEXT 
OF  THE  FOLLOWING  FORMAT 

I TOKEN  TAHLE  POINTER  FOR  SYMBOL  TEXT  TOK  POINTER 

? SYMBOL  CATEGORY... 

TOKEN  TABLE  POINTER  FOR  RhDEL IM I TER/8H0PERA TOR/ 
7HKEYWORU.  IF  APPROPRIATE  TOK  POINTER 

OTHERWISE,  SYMBOL  TABLE  POINTER  STB  POINTER 


C 

c 

c 

c 

c 

c 


SYMBOL  TABLE 

SYMBOL  TABLE  BLOCK  (STB).  THERE  IS  ONE  STB  ENTRY  FOR  EACH  SYMBOL 
(VARIABLE, ARRAY, CONSTANT  .LABEL  .COMMON  Bl.  OCK  , F RENAME  .EX  TERNAL  .OR 
FUNCTION)  IN  THE  MODULE.  THE  ENTRY  CONTAINS  INFORMATION  ABOUT  THE 
SYMHOL  WHICH  SUMMARIZES  ITS  USE  THROUGHOUT  THf  ENIIRE  MODULE 
(HOT  JUST  ONE  STATEMENT). 

WORD  DEFINITION 


1 SYMBOL  TOKEN  TABLE  POINTER  TOK  POINTER 

? CLASS  OF  SYMBOL  ( I XLOCL . I XPRMT . 1 XCMMN. I XEXTN, IENT t TOK  POINTER 

3 TYPE  OF  SYMBOL  ( I ACONS , I X VRHL . I X AR A Y , I XL ABL . I XE XTN . 

lENT.IXFLNM.IXFNCT)  TOK  POINTER 


1. 

f 
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TOK  PO INTF  R 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


<« 


s 


7.8, 


9 


ARITHMETIC  MODE  (IXREAL.IXHOLL.IXINTG.IXLABL. IXLGCL. 

I XCMPX. 1 XODHL . I XTPLS. 1 XFLNM) 

HLOCK  NAME  FOR  SYMBOL  (FOR  BLOCK  DATA  OR 

COMMON  BLOCK).  <<NAME>  OR  BLANK  IF  CLASS  IS  6HC0MM0N 

BUT  OTHERWISE  BLANK)  TOK  POINTER 


) or  akray.  integer  dimensionality  to.i.2.J>. 

FOR  EXTERNAL.  THE  NUMBER  OF  ACTUAL  PARAMETERS  IN 
OCCURANCE  IN  MODULE. 

FOR  LABEL.  STATEMENT  NUMBER  OF  DEFINITION. 


INTEGER 
F IPST 

integer 

SOB  POINTER 


1ST.  2ND  AND  3RD  INTEGER  DIMENSIONAL  EXTENT  OR  ZERO 
NEGATIVE  IMPLIES  VARIABLE  DIMENSION  INTEGER 


10  SPARE 

11  SPAfiF 


12  STATEMENT  NUMBER  OF  FIRST  USE  OF  SYMBOL. 

I 3 NUMBER  OF  OCCURANCES  OF  SYMBOJ  (TOTAL) 

IA  STATEMENT  NUMBER  OF  LAST  USE  OF  SYMBOL. 


SDB  POINTER 
SDR  POINTER 
SDB  POINTER 


I c- 1 9 SPARE 


Cl  ASS  ==  STORAGE  orienteo 

type  ==  INTERNAL  syntactic  treatment  ORIENTFD 
mode  ==  COMPUTATIONAL  treatment 


NOTES... 

(1)  BY  CONVENTION.  STB(l)  IS  THE  MODULE  NAME. 


(2)  STB ( 2 ) IS  THE  FIRST  FORMAL  PARAMETER.  IF  ANY. 


0>  THE  OTHER  ST B ( . ) ARE  ASSIGNED  IN  ORDER  OF  THEIR  OCCURANCF  WITHIN 

THF  module. 


n-o  path  table 


O-D  PATH  BLOCK  (DDP).  THERE  IS  ONE  DDP  ENTRY  FOR  EACH  DECISION  OUTWAY 
IN  THE  MODULE.  AND  ONF  OOP  ENTRY  FOR  EACH  REDUCTION  PEPFORMEO 
DURING  THE  SE/SE  SUBGRAPH  ANAL  Y S I S . THE  ODPATH  NUMBER  IS  THE 
INDEX  TO  THIS  TABLE. 


WORD  DEFINITION 


I 

? 

3 

A 


INITIAL  stmt  NUMBtR 
FINAL  STMT  NUMBER 

number  of  ds  entries 
TYPE  OF  SE/SF 
0 

1 

2 

3 


integer 

INTEGER 

INTEGER 


==  DDPATH 

==  LINEAR  COMPOSITION 
s*  PARALLEL  COMPOSITION 
==  SELF-LOOP  COMPOSITION 
A ==  REPEAT  AT  LEAST  ONCE  ITERATION  COMPOSITION 

5 *■  SPARE 

6 " RESTRUCTURED  LOOP  EXIT  (1ST  HALF) 

7 **  RESTRUCTURED  LOOP  EXIT  (2ND  HALF) 

8 *=  SINGLE  ENTRY/MULTIPLE  EXIT  (SE/ME)  COMPOSITION 
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n n n o o r> 


INTEGER 


5 PREDICATE  INDEX 

6 SPARE 

7 SPARE 

B SPARE 

g NUMBER  OF  STATEMENTS  ON  THE  DD-PATH.  INTEGER 

10  DS  TABLE  ORIGIN  0»  OOPATH/STATEMENT  l 1ST 

OP  SE/SE  COMPOSITION  LIST  INTEGEP 

C NOTES... 

C (1)  DO  path  blocks  SOPTEO  IN  OPDEP  OF  (1)  INITIAL  STATEMENT  NUMBER, 

C AND  4 cf  > PREDICATE  INDEX. 

C <’)  entry  odp  is  always  ddp  no.  l. 

C (1)  FxIT  DDP(S)  ALWAYS  END(S)  ON  HIGHEST  ASSIGNED  NODE  NUMHF  P . 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCC 

C d S table,  there  IS  ONE  DS  ENTRY  FOR  EACH  DDP  ENTRY.  THE 

c oopath  number  Is  the  index  to  This  table. 

C n 

C v AR 1 ABLfc  LENGTH  table  STORING  EXECUTION  ORDER  STATEMENT  SEQUENCES 

C FOR  EACH  UD-PATH.  SDH  POINTER 

C SE/SE-TOSl/SE  DECOMPOSITION  TABLE  OOP  POINTER 

C VARIABLE  LENGTH  TABLE  STORING  THE  COMPONENTS  OF  AN  SE/SE. 


CCCCCCCi'CCCCCCfCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCC 

cccccccrccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccctccccccccccccccuccccccccccccccccccccccccccccccccctcccccccccccccc 

C TEMPORARY  MODULE  TABLES 

CCCCCCCCCCCCLCCCCCCCCCCCCCU  ccccccccccccccccccccccccccccscccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CCCCCCCrCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCCCCCC 
C LABEL/STATEMtNT  TABLE 

C LABEL/STATEMENT  BLOCK  (LBTL).  there  is  one  entry  in  the  lhtl  table 

C FOR  EACH  label  IN  the  MODULE.  THE  LABEL  NAME  IS  THE  INDEX  TO  THIS 

C table. 

C WORD  DEFINITION 

c 

C 1 LABEL  name  TOK  POINTER 

c 

C 2 STATEMENT  the  lapel  is  define  at  sob  pointer 

c 

CCCCCCCrCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCLCCCCCCC 


c current  GRAPH  table 
c 

C CURRENT  GRAPH  BLOCK  ( I TEMP/ JTEMP ) . THERE  IS  ONE  ENTRY  IN  I TEMP  OR 

C JTEMP  FOP  EACH  ARC  IN  THE  CURRENT  PROGRAM  GPAPH. 

C WORD  DEF INI T ION 

C 1 INITIAL  STATEMENT  NUMBER  SDH  POINTER 

C 2 FINAL  STATEMENT  NUMBER  SDR  POINTER 

C 3 OOP  ENTRY  DESCRIBING  THIS  SE/SE  OOP  POINTER 

CCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCr 
CCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCC 
C CONNECT  I ON  TABLE 

c 

c CONNECTION  Block  (JON).  THERE  IS  ONE  JCN  ENTRY  FOR  EACH  ITEMP/ JTEMP 

C ENTRY.  The  ITh  jCN  ENTRY  LISTS  THOSE  ARCS  WHICH  ARE  CONNECTED  TO 

C THE  ITH  ENTRY  IN  THE  ITEMP/JTEMP  TABLE. 

C 

C VARIABLE  length  entry  storing  graph  CONNECTIONS 

c ITEMP/JTFMP  pointer 

CCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCr 
C 

C connection  directory  table 

c 

c connection  auxiliary  block  ijcnaxi. 

C THERE  IS  ONE  JCNAX  ENTRY  FOR  EACH  JCN  ENTRY. 

c 

C WORD  DEFINITION 

C 

C 1 SPARE 

C ? NUMBER  of  connections  integer 

c 3 jcn  table  origin  of  connection  list  jcn  pointer 

c 

ccccrccrcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccr 
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ooonnooooooooooooo 


ccccccctccccccccccccccccccccccccccccccccccccccccccccccccccccccccccr ccccccccccccc 


C COMMON  HLOCK  DESCRIPTIONS 

CCCCCCCC CCCCCCCCCCLCCCCCLCCCCLCCCCCCCCLLCCCCCClCtCCCCCCCCCCCCCCCCCCCCCC 

c 

C SINGLE  ALPHABETIC  characters 

COMMON/ ALPHA/  lxA.lXB.IXC.IXD.IXE.IXFtIXH.IXL.IXN.lXO.IXP.lXS. 

• ixx.ixy.ixz 

c 

TOK  POINTFP  CHAPACTEP  STRING 

VARIABLE  pointed  to 


C I <A 

C I »B 

C I»C 

C KD 

C 1»E 

C I *F 

C I » H 

C I»L 

C I IN 

C I«0 

C 1»B 

C I «S 

C I «x 

C I » Y 

C K? 

c 

C RELATIONAL  and  logical  operators 

COMMON/RELATN/IXALSO.IXANU  ,1XE0  .ixge  .1XGT  .IXLE  * I XL  t • 
• IXNE  .IXNOT  .IX0PI  .IXPNEG.IXPOS 

C 

TDK  POINTER  CHAPACTEP  STRING 

VARIABLE  POINTED  TO 


I * ALSO 
I * AND 
I XPEQ 
I xBGE 
I XBGT 
I xRNE 
I »E0 
I «GE 
I >GT 
I»LE 
IxlT 
I <ne 

KNOT 
K0R1 
I XPNEG 
IXPOS 
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PH.ANDALSO. 
sh. and. 


RH.EO. 

4H.GE • 

‘•H.GT. 

4H.LE • 

<.H.LT. 

<tH.NE  . 

5H.N0T. 

4H.0R. 

SM.NEG. 

SH.POS. 


1 HA 
1HB 
1HC 
1 HD 
1 HE 
I HE 
lHH 
1HL 
1HN 
I HO 
1 HR 
1HS 
1HX 
1 HY 
1 HZ 


non  n n n n n n n n r>  n n n n n o nnnnnnnnn 


w 


i 


c 

c 


ARITHMETIC  OPERATORS 

COMMON /OPE  RAT  /IxDIvD«IxOLM6,1xEQL  «IXEXP  • I XMNUS  • I XMuL  T * 1 XPLIIS 


tok  pointer  character  string 

VARIABLE  P0INTE0  TO 


IxOIVD  IH/ 

HOLME.  lH< 

I »EOl  1H= 

I »EXP  2H** 

IIMNUS  1H- 

I«MUIT  I H* 

I«PLUS  1M» 


UTILITARIAN  CONSTANTS 

COMMON/UTILTY/lXBLNK.IXOBUG.lXFALS.IXNO  . I XOFF  « 1 XON  .IXOR  • 
IXTRUE.IXVES 


TO*  POINTER  CHARACTER  STRING 

VARIABLE  POINTED  TO 


I xHLNK 
I xDBUG 
IXFALS 
I XNO 
I XOFF 
IxON 
I »OR 
I XTRUE 
I x YES 


IH 

SHDEBUG 

0 

0 

0 

l 

2H0R 

I 

1 


MISCELLANEOUS  DELIMITERS 

COMMON/MISC  /IXBL  ,IXC0MA.IX0lM1.IXDLM2.IX0LM3.IX0LMA. 

• IX0LM5, IXOOLL. IXPAR  . I XPARD. 1 XPERD. I XPRDS. I XPHIM 


TOK  POINTER  CHARACTER  STRING 

VARIABLE  POINTEO  TO 


IXBL  1 Hv 
I X COMA  1H« 
I XDLMI  lH> 


1 
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V 
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1 xDLM? 

1H>» 

I«DLM3 

1 Ha 

IXDLM* 

1H< 

I »OLHS 

1 H | 

lx  DOLL 

IMS 

I 'PAR 

1H< 

I xPARD 

1H) 

I XPERD 

1H. 

1 XPRDS 

3H> 

l X PR  I M 

lH* 

DIALECT  REFERENCE  SET 

COMMON/DIALCT/lXASC  , IxCFTN, 1XCRUN. IXFTRN, IX1FTN* IXPDP  « IXSTRN. 
» 1XUNV 


T OK  POINTER 
V AR I ABLr 


CHARACTER  STRING 
POINTED  TO 


I x ASC 

3HASC 

IXCFTN 

7HCDC-FTN 

] xCRIJN 

ThCDC-PUN 

I xFTRN 

7HF0RTRAN 

I x IFTN 

6HIFTRAN 

T wPOP 

3HP0P 

I XSTRN 

hhstroctran 

1 XUNV 

6HUNIVAC 

HOLLERITHS 

USED  IN  REPORTING 

COMMON/REPORT/IXALL  .IXARAY. 

lXFNXCvIXFTAL* 
IXNOTP, IXNUSD, 

I XUSDN , I XUSED,  ! 

TDK  POINTER 

character  str: 

VARIABLE 

POINTED  TO 

I » ALL 

3HALL 

IxARAY 

bHARWAY 

I XASGD 

BHASSI6NED 

IxCONS 

8HC0NSTANT 

I xOTRG 

7HDO-TARG 

I xEROR 

7h»ERROR* 

I xFLNM 

bhfilename 

I XFNXC 

iohfunct-call 

I XFTAL 

7h*F  AT  AL  * 

I xhOLL 

9HH0LLERITH 

IXKWNI 

bh*unknomn 

IXLABL 

bhlabel 

I xLOCL 

SHLOCAL 

I XN0N1 

6H*N0NE* 

I XNOTP 

10HNOT  PARSED 

IXNUSD 

6HUNUSE  D 

I »OCTL 

5HOCTAL 

I xPRMT 

9HPARAMETER 

1 XSET 

3HSET 

IXTPLS 

8HTYPELESS 
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nnnnnnnnnrtnnnnnnnnnnnnn  r»  n n n o o n n n r>  noonoooo 


] » T YPE 

hHTYPE 

1 XIISDN 

6HUNUSE0 

I XUSED 

4HUSED 

I x VRBL 

bhvariablE 

I xwARN 

7HWARNING 

1 xwRTN 

7hmR I T TEN 

I xxALL 

7h**ALL## 

LOGICAL 

CONSTANTS 

COMMON /LOO I CL / IxFLSE  t IXPE  .IXT 

T OK  POINTER 

character  string 

variable 

POINTED  TO 

ixelse 

Th. FALSE. 

I xpE 

3H.E  . 

IXT 

3H.T. 

I XTTRU 

oh. true . 

STANDARD  ANSI 
COMMON/ANSI 

TOK  POINTER 
VARIABLE 

FORTRAN 

/IAGT  .ICGT  . IENO 
IFCALL. IfCLXT. IEENDF 
IEPRNT. IFR  .IFREAO 

IE?  . I F 3 . 1GT 

IXASS  « 1 XBKSP . I XBLCK 
IXCALL. IXCMMN, IXCMMT 
IXDMSN.IXDO  . I XENDE 
IxERMT.IXGO  .ixlgcl 

IXINTG. IXPAUS. 1XPNCH 
IXSTEX.IXSUB  . I XTO 

CHARACTER  string 
POINTED  TO 

I AGT 

1 OHGOT  o- assgn 

ICGT 

10HCOMP.  GO  TO 

IEND 

3HEND 

I E AGT 

IOHIE-ASSGN-G 

IFASGM 

lOHlE-ASSGMNT 

IE  ASS 

9HIE-ASSIGN 

IFBACK 

10HIE-BACKSPA 

I f call 

7HIE-CALL 

IeCLXT 

10MIFCALLEXIT 

ieendf 

10H1E-ENUF ILt 

IEGT 

7H1E-G0T0 

IEGTC 

9HIE-G0T0-C 

I EP 

8HIE-PAUSE 

IEPNCH 

8H1F-PUNCH 

IEPRNT 

8HIE-PR1NT 

IFR 

9HIE-RETURN 

IEREAO 

7H1E -READ 

IERWND 

RhIE-REwIND 

IES 

7H1E-ST0P 

IET 

2MIF 

IEXRTE 

8H1E-BRITE 

IE? 

6HIE-TB0 

IE3 

8H IE-THREE 

I XT  TRU 


IF*6T  . 
IE&T  . 
1ERWND, 
IRET  ' 
IXBL*  * 
IXCMPX. 
1XEQVL, 
IXIOAC, 
1XPRNT, 
IXWPIT 


IFASGM. 
1EGTC  . 
IPS  . 
1STOP  . 
IXBUf I' 
I XCONT  » 
IXEXlT. 
I X IE  . 
IXREAOt 


IE  ASS  ♦ 
I EP 

IET  . 
I XASGM • 
1 X8UEO* 
1XDATA. 
IXEXTNt 
IXIOWR. 
IXREAL. 


IEHACK. 
If  PNCH. 
1FMRTE. 
I XASGT  » 
IXCALE* 

ixobl  . 

IXENCT. 
IX IOPO, 
IXRWNO. 
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1 r'T 

AHGOTO 

|RET 

GHRETURN 

IsTOP 

anstop 

1 xASGM 

iomassignment 

1 x ASGT 

ghass-goto 

1 * ASS 

ghassign 

1 XBKSP 

RMBACKSPACE 

1 xRLCK 

RhBLOCaOAT  a 

1 «BLK 

ShHLOC* 

I XBUF 1 

BHBUf FtRIN 

I xBUFO 

VMBUFFEROUT 

I XCALE 

vhcall-exit 

1 XCALL 

ahcall 

I »CMMN 

GHCOMMON 

1»CMHT 

7HC0MMENT 

I XCMPX 

7HC0MPLE  X 

1 xCONT 

BHC0NT1NUE 

1 XOAT  A 

ahqata 

1 XDBL 

GHDOUBLE 

I xOMSN 

PHD  1 MENS  ION 

lx  00 

3HD0 

I XENOF 

7HENDF  ILL 

I XEOVI 

1 1 HE OU I VALENCE 

IXEXIT 

AHEX1T 

I xEXTN 

bhexternal 

IxFNCT 

BHFUNCT  ION 

I XFRMT 

GHFORMAT 

I x GO 

2HG0 

I >LGCL 

7HL0GICAL 

I x I OAC 

lOHI/O-ACTION 

I x IF 

bHlF-JF 

I » IOWR 

9HI/0-WRITE 

I x IOPO 

8H1/0-PEA0 

1 x INTO 

7HINTEGER 

I XPAUS 

bHPAUSE 

1XPNCH 

SHPUNCH 

I xPRNT 

SHPRINT 

IXREAO 

AHREAO 

I xREAL 

amreal 

IXRWND 

ghrEmINO 

I XSTFX 

10MSTMT. 

IX  SUB 

lOHSUBROUT INE 

I X TO 

2HT0 

IxmRIT 

SHMRITE 

COMMONLY 

IMPLEMENTED  FORTRAN  EXTENSIONS 

COMMON/COME XT / 1 ENT  * IF BUFF , IFBuF I t 1FBUF0, 

I XBFFR » I XDCD  , I XENCO . I XNLST . 

TOK  POINTER 

variable 

CHARACTER  STRING 
POINTEO  TO 

IFNT 

SMENTRY 

IFBUFF 

bhifbuffer 

IFBUF  I 

1 OH IF-BUFF  ER I 

IFBUFO 

IOHIF-BUFFERO 

IFDCDE 

VHIF-OECODE 

IFENCD 

vhif-encooe 

IXASNM 

iohassgn-mult 

I XBFFR 

gmbuffer 

IxOCO 

6 HOE CODE 

IFDCDE  » IFENCD* I XASNM* 
I XPP6M 
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1»FNCD  bHENCOOF 

lxNLST  HHNAMEL1ST 

IiPBuM  7HPR0GRAM 


COC-RUN  COMPILER 

COMHON/CDC  RUN/ IF  A « IF  D .IFEOF  .1F0  .1FSL  .1FSS  1 1 F UN  IT. 

I XACUM, IXDvOE. IxEOF  . IxloC* . I XL  IGT , I XQUOT . 1 XSENS. 
I XSNSL  t I ASWCH* IXUNIT 


TOH  POINTER  CHARACTER  STRING 

VARIABLE  POINTED  TO 


IF  A I OH  IF  - ACC  OMUL 

IFD  9H1F-0IVIDE 

IFEOF  6HIF-E0F 

I F 0 1 OH  I F (JuOT  IE  NT 

I F SL  IOHIF-SFNSE-L 

I*-SS  10HIF-SENSE-S 

I FUN I T 7HIF-UNIT 

I XACUM  1 1HACCUMULATOB 

I «OVOE  bHOIVIDC 

IxEOF  OhEOF 

I x IOCI"  7HIOCHECK 

I XL IGT  SHLIGHT 

I xOUOT  BHOUOTIENT 

I » SFNS  GHSENSE 

I *SNSL  10HSENSEL IGHT 

1 xSwCh  bHSUlTCH 

IxuNIT  <*HUN  I T 


CDC-6000  FORTRAN  EXTENSIONS 

COMMON/CDCEXT/ICALLR. lFCLLRt I XlMPL. 1XLEVL. 1XOVLY. IXSUBR 


T On  POINTER  CHARACTER  STRING 

VARIABLE  pointed  to 


ICALLP  IOHCALL-RETRN 

IFCLLP  VHIF-CALL-R 

I x I MPL  BHINPLICIT 

IXLEVL  SHLEVEL 

I xOVLY  7hOVERL»Y 

IXSUBR  lOHSUBH-RETRN 


pop- l l fortran 

COMMON/POPIl  /IF ROC  .IFATC  .IREAOC.lWRTECtlXBYTEtlXOEFI.IXOFRM, 
IXFDRN.  IXF  ILE  . IxF 1NO, IXINT2. 1XLGC1 . IXBORN. IXPL*  , 
1XRL8 


Ton  POINTER  CHARACTER  STRING 

VARIABLE  POINTED  TO 


I F ROC  VHIF-READ-C 

IFwTC  10HIF -nBITE-C 

I PC  AOC  9hR£ AD-COND 

I nRTEC  10HBR1TE-CONO 

I »BYTC  AHBYTE 
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I «DEF  I 

bHOEF INF 

I XDFRN 

iohdefine-ran 

I »FDRM 

BhFIND-RAN 

IxFILE 

SHE ILE 

I «F INO 

SMFIND 

IXINT? 

BH1NTEGE  R2 

IxLGCl 

BhlOGI CAL  1 

I xPDRN 

bhread-ran 

IxRLS 

ShRE  AL«* 

I * RL  H 

SHRE ALB 

IJHJVAC  COMMON 

COMMON /UN lVAC/lXABNL . IXDELT 

TOK  POINTER 
VARIABLE 

CHARACTER  ST 
POINTED  TO 

1 > AHNL 
UDELT 
IxEDIT 
I > INCL 
I *STRT 

BHABNORMAL 
6HDELETE 
shed  IT 
7HINCLUOE 
SHSTART 

INTERNAL  COMMON  HOLLERITHS 
COMMON/ JNTRNL/ IXDLMT, I XENOT 

TOK  POINTER 

variable 

CHARACTER  ST 
POINTED  TO 

.lxEOIT.IXINCL.IXSTRT 


RING 


. I XKYMO. I XOPTR 
RING 


IXDLMT  RHDEL 1M1 TER 

I xENOT  VHEND-TOKEN 

I XKYWD  7HKEYWORD 

IxOPTP  BHOPERATOR 


cccccccccccccccccccccccccccccccccrccccccccccccccccccccccccccccccccccccccccccccce 


•r)K  END 
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4 STRUCTRAN-2  SOFTWARE  COMPONENTS 


Each  of  the  following  sections  describes  a STRUCTRAN-2  component:  its 

function,  the  modules  in  the  component,  and  the  data  structures  used  by  the 
component.  Additional  information  is  provided  in  the  STRUCTRAN-2  Software 
Analysis  Collection  documentation. 

4.1  STRUCO 

STRUCO  consists  primarily  of  the  storage  management  function  for 
STRUCTRAN-2.  STRUCTRAN-2  is  designed  to  handle  large  programs.  This  imposes 
a requirement  for  access  to  a large  data  base  in  mass  storage;  the  desire  for 
fast,  efficient  operations  on  active  data  establishes  a need  for  a core-resi- 
dent working  storage  capable  of  holding  the  module  data  tables  for  two  or  three 
modules  at  the  same  time.  The  large  data  base  is  maintained  in  random  access 
files  called  libraries,  with  each  library  holding  a collection  of  tables  for 
related  modules.  Each  table  is  fragmented  into  a fixed  block  size.  In  core 
the  working  storage  consists  of  allocated  blocks  of  storage  which  contain  whole 
or  partial  active  module  data  tables.  Data  transfer  between  the  libraries  and 
the  working  storage  area,  and  between  working  storage  and  analysis  programs, 
is  controlled  by  the  storage  manager  system. 

The  organization  of  the  storage  management  component  is  shown  in  a func- 
tional diagram  in  Fig.  4.1.  The  interface  between  the  analysis  components  and 
the  active  data  tables  in  the  working  storage  is  handled  by  the  access  inter- 
face subfunction,  which  permits  the  storage  and  retrieval  of  data  using  a 


LIBNEW 

Figure  4.1.  Storage  Manager  Organizations 


w*. 
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module  number,  data  table  number  and  table  block  number  to  identify  specific 
items.  If  the  desired  module  tables  are  not  present  in  the  working  storage 
when  an  access  interface  call  is  made,  the  library  manager  subfunction  auto- 
matically responds  by  creating  data  tables  of  a new  module  or  retrieving 
existing  tables  from  the  proper  library.  If  space  must  be  made  in  the  working 
storage,  the  activity  monitor  subfunction  tells  which  table  fragment  is  a 
likely  candidate  for  dumping  from  core.  The  library  manager  also  handles  the 
building  of  libraries  by  storing  revised  table  fragments  or  newly  entered 
module  table  fragments  into  the  data  base. 

A narrative  description  of  each  module  contained  in  STRUCO  is  contained 
in  Appendix  A.  In  addition  numerous  reports  describing  each  module  can  be 
found  in  the  STRUCTRAN-2  Software  Analysis  Collection.  The  modules  making  up 
STRUCO  are  listed  below: 


MAIN 

LB ZERO 

ACTFRG 

ACTOLD 

KSTMTS 

LGTWRD 

WSCWRD 

UPDF.PT 

WSGFRG 

LBTGET 

IHLCON 

WARN 

ACTMOD 

LBTPUT 

ACTICH 

MDBCET 

TRACE 

ERPERF 

PUTBLK 

SYS ADD 

WSPWRD 

LBREAD 

PRMGXV 

PRMDB 

MM BARG 

MKVTAB 

LBWRIT 

NFRGSZ 

ISRTAB 

MOVEWD 

LPTB1.K 

MART A B 

LBMOVE 

• MAKMOD 

IGTBIT 

GETFRG 

LGTBLK 

UNPX 

MDBPUT 

TOKCMP 

COMPZ 

ITSFRG 

WSPFRG 

ACTDMP 

CRTFRG 

IBAPAR 

PUTWRD 

FATAL 1 

SPRYWD 

GET1.BT 

DMPFRG 

KFLOWS 

DMPMOD 

PRDBG 

MAKFRG 

ISERCH 

SLED1T 

GETLST 

LENTAB 

GETFOR 

ICHFRG 

PUTLST 

PUTBIT 

JGET 

IGTTOK 

IGTWRD 

GETMOD 

IMAKEP 

EROR 

JPUT 

FINISH 

GETBLK 

GETTAB 

TOKADD 

ISDOTR 

ISCLAS 

NUMODS 

ACTDAT 

ED1T10 

IFEOF 

IFUNIT 

LBFREE 

MOVECH 

REPLC1 

XM1T 

4.2 

STRUC1 

The  STRUC1 

component 

performs  initialization 

functions.  Figure  4.2  in- 

dicates  the  data 

structures 

which  are 

initialized 

by  STRUC1 . STRUCT  first 

assigns  all  of  the  1/0  unit 

names  used  by  STRUCTRAN-2  with  valid 

unit  numbers. 

Then  various  values  used  by 

the  storage  manager  are  initialized. 

The  random 

access  file  LIBNEW  is  then 

opened  and 

initialized . 

The  format  of 

the  various 

library  and  module  tables  which  will 

exist  on  the 

data  base  library  is  defined 

and  the  library 

tables  are 

initialized. 

A narrative  description  of  each 

module  contained  in  STRUC1 

is  contained 

in  Appendix  A. 

In  addition 

numerous 

reports  describing  each  module  can  be 

found  in  the  STRUCTRAN-2  So 

ftware  Analysis  Collection.  The  modules  making  up 

STRUC1  are  listed  below: 

PRLBT 

LBDTRS 

SBI.KSZ 

TBINIT 

LBOPEN 

AIINIT 

LBINIT 

FLINIT 

STRTER 

STRUC1 

4.3  STRUC2 


Figure  4.3  indicates  the  data  structures  created  by  STRUC2  as  it  per-' 
forms  a lexical  analysis  on  the  FORTRAN  source  text.  This  analysis  identifies 
each  FORTRAN  keyword,  label,  operator,  delimiter,  constant,  or  variable  as  a 
token.  The  FORTRAN  source  text  to  be  structurized  is  read  in  one  statement  at 


28 


cTRiiri 

(INITIALIZATION) 


Figure  A. 2.  STRUCT  Data  Structures 


Figure  4.3.  STRUC2  Data  Structures 
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a time  during  the  lexical  analysis.  If  a token  is  not  already  in  the  token 
table  it  is  added  to  it,  and  an  internal  representation  of  the  statement  con- 
taining token  table  pointers  (in  place  of  the  original  character  string  data) 
is  saved  in  the  Statement  Block  (SB)  Table.  The  Statement  Descriptor  Block 
(SDB)  Table  is  also  initialized  for  each  statement.  During  this  initial  pass 
through  the  FORTRAN  source  text,  CONTINUE  statements  may  be  added  to  the  source 
text  so  that  each  DO-loop  targets  a unique  CONTINUE  statement.  For  purposes 
of  efficiency  FORTRAN  keywords  which  are  used  in  recognizing  FORTRAN  statement 
types  are  added  to  the  Token  String  Table  in  a specific  order  by  STRUC2.  For 
enhanced  machine  independence,  all  character  strings  which  are  used  internally 
or  used  in  reports  are  added  to  the  token  table  by  STRUC2.  This  is  performed 
by  the  module  TOKNIT,  the  source  text  of  which  explicitly  indicates  which 
character  strings  are  inserted  into  the  token  table. 


A narrative  description  of  each  module  contained  in  STRUC2  is  contained 
in  Appendix  A.  In  addition,  numerous  reports  describing  each  module  can  be 
found  in  the  STRUCTRAN-2  Software  Analysis  Collection.  The  modules  making  up 
STRUC2  are  the  following: 


STRUC2  LEXPDP 
PL'TFOR  LEXFIX 
DOLABL  LEXFR1 
ADLABLS  NULABL 


OVRFLO  IHVALU 
TOKSET  PSTPOP 
TOKNIT  ADMODL 
SLABEL 

4.4  STRUC-3 


LEXEDT  LAD J ST 
POSTAK  CLASFY 
MAINCM  ADCOND 


STRUC3  performs  FORTRAN  statement  recognition.  It  uses  the  text  repre- 
sentations created  by  STRUC2,  and  updates  the  Statement  Descriptor  Block  Table 
with  the  information  derived  from  parsing  each  statement.  This  is  illustrated 
in  Fig.  4.4.  Each  statement  is  in  turn  analyzed  to  determine  what  type  of 
statement  it  is.  Based  upon  its  type,  pointers  within  the  Statement  Descriptor 
Block  Table  are  set.  Also  the  symbols  in  the  statement  are  added  to  the  Symbol 
Table  or  the  information  already  in  the  Symbol  Table  about  them  is  updated. 

The  Module  Descriptor  Block  created  by  STRUC2  is  used  and  updated  by  STRUC3. 


A narrative  description  of  each  module  contained  in  STRUC3  is  available 
in  Appendix  A.  In  addition,  numerous  reports  describing  each  module  car.  be 
found  in  the  STRUCTRAN-2  Software  Analysis  Collection.  The  modules  included  in 
STRUC3  are  the  following: 


STRUC3 

MXCLAS 

IOCOND 

ITSMOD 

ITSTYP 

ITRGBL 

ISETK 

ASPROC 

IFPROC 

ISNONX 

FUNPRC 

EXTFI0 

ISIF 

EXT  10 

DECLAR 

LNSTAB 

KNSTAB 

I0PR0C 

INSTAB 

STTBLK 

11STEX 

NUMEXS 

PARASA 

PARUNV 

PARPDP 

PARRUN 

KNSTBL 

ISASGN 

FPARSE 

4 . 5 STRUC4 


Figure  4.5  illustrates  the  data  base  library  data  structures  used  and 
created  by  STRUC4.  The  function  of  this  component  is  to  identify  the  program 
graph  of  the  module,  using  the  information  which  has  already  been  saved  in 
the  data  base  library.  Each  statement  in  turn  is  examined  to  see  if  it  cor- 
responds to  a node  in  the  graph  from  which  one  or  more  arcs  (DD-paths)  origi- 
nate. For  each  arc  originating  at  a node,  the  statements  on  that  arc  up  until 
the  next  node  (decision  statement)  on  that  path  are  determined.  A temporary 
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Figure  4.4.  STRUC3  Data  Structures 


table,  the  Label /Statement  Table,  is  created  and  used  to  efficiently  associate) 
labels  with  statement  numbers.  Each  arc  of  the  program  graph  is  described  by 
an  entry  in  the  DD-Path  Table;  the  statements  on  each  arc  are  saved  in  the 
DD-Path/Statement  Table.  The  Module  Descriptor  Block  is  updated  by  STRUC4. 

A narrative  description  of  each  module  contained  in  STRUC4  is  available 
in  Appendix  A.  In  addition,  numerous  reports  describing  each  module  can  be 
found  in  the  STRUCTRAN-2  Software  Analysis  Collection.  The  modules  in  STRUC4 
are  the  following: 


STRUC4 

LSTEX 

ITSCJX 

ITSFNC 

LABSTM 

ABRTRN 

NXTEX 

STMOUX 

BRCNT 

GETBIT 

DP STMT 

FRTRN2 

PDPFT2 

CDCRN2 

FJNC2 

STCK 

FJNC1 

PDPFT1 

CDCRN1 

FRTRN1 

NOTRCH 

NXTSTM 

POPDDP 

BEGDDP 

FNDEND 

DDPGEN 

PRDDP 

KJONES 

4.6  STRUC5 

STRUC5  identifies  and  reduces  elementary  structured  forms  in  the  program 
graph  of  the  module  being  analyzed.  To  do  this  it  uses  the  information  stored 
in  the  DD-Path  and  DD-Path/Statement  Tables.  It  also  updates  the  information 
in  these  tables  to  reflect  the  structured  forms  identified.  This  is  indicated 
in  Fig.  4.6.  Several  temporary  tables  are  created  and  used  by  STRUC5  during 
this  process.  The  identification  of  structured  forms  proceeds  from  the  inside 
out.  When  a structured  form  (a  single  entry/single  exit  structure  consisting 
of  several  arcs)  is  recognized  it  is  removed  from  the  graph  by  replacing  it 
with  a single  arc  with  the  same  entry  and  exit  nodes.  This  allows  other  basic 
constructs  to  be  identified.  As  this  reduction  process  is  performed,  the  DD- 
Path  and  DD-Path/Statement  Tables  are  updated  with  the  types  of  structured 
forms  identified.  Two  temporary  tables  are  used  to  represent  the  current  pro- 
gram graph  during  the  reduction  process.  Also  temporary  connection  tables  are 
used  to  efficiently  analyze  the  more  complicated  graphical  structures  which 
may  be  encountered. 

A narrative  description  of  each  module  in  STRUC5  is  contained  in 
Appendix  A.  In  addition,  numerous  reports  describing  each  module  can  be 
found  in  the  STRUCTRAN-2  Software  Analysis  Collection.  The  modules  in  STRUC5 
are  the  following: 


STRUCK 

BAKPTH 

NPTH 

NODSTK 

FNDCON 

INTPOP 

INTSTK 

NODPOP 

MLTWHL 

IBORCD 

ITORIF 

NPAR 

NBEF 

NAFT 

REORDR 

LOOPCK 

INTRVL 

MAKCON 

ADDSLF 

REMFNT 

SUBSCH 

ISITUN 

IBORNT 

ADDJNC 

ADDBRO 

ADDPAR 

ADDLST 

REMBRO 

ADDLIN 

SHRINK 

SEME 

ADDWHL 

PRTEMP 

4 . 7 STRUC6 


STRUC6  uses  all  of  the  information  saved  so  far  to  build  a DMATRAN  ver- 
sion of  the  original  FORTRAN  module.  Figure  4.7  indicates  the  data  structure 
usage.  The  DMATRAN  source  code  is  written  into  the  Statement  Block  for  a new 
module,  and  the  Statement  Descriptor  Block  Table  and  Module  Descriptor  Block 
Table  are  initialized  so  that  the  DMATRAN  program  may  be  output  by  standard 
print  and  punch  routines. 


*DMATRAN  MODULE  TABLES 

Figure  A. 7.  STRUC6  Data  Structures 
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STRUC6 

NUNAME 
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PRDIFT 

PRDASA 

PRDVAL 

DDPRED 

PRDPOP 

PRQSTK 
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ITSVAR 
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DPRED 

PT 

INITPT 

SUBPOP 

ENCLOS 

JHVALU 

NEXIT 

ITSDES 

NEGPRD 

NUSTMT 

FNDPRD 

INITX 

STMTOU 

SESPOP 

SESSTK 

PROC 

INVOK 

DUNTIL 

SEMEX 

NEWFIR 

NEWSND 

ELEMEN 

SLFLOO 

PARALE 

LINEA 

PROG 

SUBSTK 

TT 

INITT 

SUBINT 

STRUCT  FINDSB 


4.8  STRUC7 


Figure  4.8  indicates  the  function  of  the  STRUC7  component  of  STRUCTRAN-2. 
It  produces  listings  of  the  original  FORTRAN  source  code,  and  also  outputs 
card  images  of  the  structurized  DMATRAN  source  code.  The  internal  token 
pointer  format  of  the  Statement  Block  Table  must  be  converted  back  into 
character  string  representations  to  perform  these  functions. 


Each  module  in  STRUC7  is  described  in  Appendix  A.  Also,  numerous 
reports  describing  each  module  can  be  found  in  a STRUCTRAN-2  Software 
Analysis  Collection.  The  modules  making  up  STRUC7  are  listed  below: 


STRUC7 

REPLC1 

PCHMTH 

PRSTMT 

INDWN 

INDUP 

PCHMOD 

PRSTB 

PRSDB 

PRMODL 

INDUP 

INDWN 

PCHMOD 

PCHHTH 

PRMODL 

PRSDB 

PRSTB 

PRSTMT 

PRTOKS 

Figure  4.8.  STRUC7  Data  Structures 
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APPENDIX  A 

STRUCTRAN-2  MODULE  FUNCTION  DESCRIPTIONS 


ABRTRN  determines  the  initial  statements  on  DD-paths  which  begin  with 
abnormal  returns  from  CALLs  or  I/O  conditional  statements. 

ACTDAT  is  an  Activity  Monitor  procedure.  It  removes  a given  module  from 
the  array  of  active  modules  (I.ACTIV)  . 

ACTDMP  is  an  Activity  Monitor  procedure.  It  removes  entries  from  the 
working  storage  fragment  directory  list.  If  the  parameter  MODULE  is  negative, 
its  absolute  value  is  the  fragment  being  deactivated.  If  the  parameter  is 
positive,  it  is  the  module  being  deactivated.  In  this  case,  a search  of  the 
working  storage  fragment  directory  is  made  until  a fragment  for  the  given 
module  is  found.  In  both  cases,  the  entry  in  the  working  storage  fragment 
directory  is  deactivated  and  the  working  storage  fragment  number,  and  its 
corresponding  library  fragment  number  is  returned.  In  the  second  case,  if  no 
fragment  for  the  module  is  found,  a fragment  number  of  zero  is  returned. 

ACTFRG  is  an  Activity  Monitor  procedure.  If  the  given  working  storage 
fragment  is  a fragment  of  a library  table  (less  than  LBFRGS),  the  working 
storage  directory  is  updated  to  contain  the  proper  corresponding  library  frag- 
ment pointers.  If  the  fragment  is  in  the  module  area  of  working  storage,  the 
directory  cell  is  made  "most  active"  and  the  library  fragment  pointers  are 
updated,  if  necessary. 

ACTICH  is  an  Activity  Monitor  procedure.  This  procedure  sets  an  indica- 
tor in  the  working  storage  fragment  directory  that  the  given  fragment  has  been 
changed  since  being  fetched  into  core.  This  is  done  by  making  the  library 
pointer  negative. 

ACTMOD  is  an  Activity  Monitor  procedure.  This  procedure  inserts  and  re- 
moves modules  in  the  active  module  list  (LACTIV).  If  the  given  module  number 
is  zero,  the  least  active  module  is  removed  from  the  list.  Its  module  number 
and  MDB  location  in  the  working  storage  is  returned.  If  a module  number  is 
given,  it  is  inserted  into  the  list  if  it  is  not  already  present.  If  it  is 
necessary  to  remove  a module  from  the  list,  its  module  number  (NOLD)  and  MDB 
location  (MDBLOC)  is  returned.  (If  it  is  not  necessary  to  remove  a module, 
NOLD  is  returned  with  a value  of  zero.)  The  given  module  is  moved  to  the  top 
of  the  list  (LACTIV)  to  signify  that  it  is  the  most  active  module. 

ACTOLD  is  an  Activity  Monitor  procedure.  ACTOLD  finds  a likely  fragment 
to  remove  from  the  working  storage.  To  do  this,  it  searches  the  working  stor- 
age fragment  directory  for  the  least  active  fragment.  It  returns  the  fragment 
number  and  its  corresponding  library  fragment  and  releases  the  entry  in  the 
fragment  directory. 

ADCOND  checks  READ  and  WRITE  statements  for  END=  and  ERR=  and  calls 
RWCOND  if  either  is  found. 
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ADDBRO  searches  the  current  program  graph  for  examples  of  arcs  which 
have  the  same  initial  and  final  nodes,  replaces  them  by  a single  entry/single 
exit  (SESE)  structure,  and  records  the  reduction  by  adding  an  entry  to  the 
DDPATH  Table. 

ADDJNC  searches  the  current  program  graph  for  elementary  examples  of 
borrowed  code  arcs,  replaces  thgm  by  a well-structured  SESE  structure,  and 
records  the  reduction  in  the  DDPATH  Table. 

ADDL1N  searches  the  current  graph  representation  for  examples  of  vertices 
which  have  only  one  inway  and  one  outway,  replaces  such  examples  by  a single 
SESE  structure,  and  indicates  the  reduction  by  adding  an  entry  to  the  DDPATH 
Table . 


ADDLST  summarizes  the  final  state  of  the  current  program  graph  as  the 
root  of  the  SESE  tree. 

ADDPAR  controls  the  reduction  process  for  simple,  non-iterative  SESE 
structures.  The  process  terminates  when  no  further  reductions  can  be  performed. 

ADDSLF  removes  self-loop  arcs  which  have  only  one  exit  arc  from  the  cur- 
rent program  graph,  and  records  the  reduction  in  the  SESE  tree. 

ADDWHL  converts  basic  repeat-at-least-once  loops  to  an  elementary  SESE 
form  and  records  the  reduction. 

ADLBLS  adds  the  statement  label  from  a FORTRAN  DO  statement  to  the  label 
stack  and  calls  EROR  with  error  number  5102  if  the  stack  overflows.  ADLBLS 
checks  to  see  if  the  DO  target  is  a CONTINUE  statement.  If  it  is  not,  then  a 
CONTINUE  statement  is  added  and  a label  defined. 

ADMODL  initiates  the  lexical  analysis  of  a new  module  and  stores  such 
information  as  source  language  type,  statement  blocks,  statement  labels,  date 
of  first  analysis,  number  of  statements,  module  name  and  intra-statement 
pointers  for  each  module  on  the  library. 

AIINIT  is  a Starter  Initialization  procedure.  It  initializes  storage 
used  by  the  access  interface  and  the  Activity  Monitor. 

ASPROC  parses  assignment  statements,  calls  and  statement  functions.  The 
Symbol  Table  Block  (STB)  and  Statement  Descriptor  Block  (SDB)  on  the  library 
are  updated  as  a result  of  this  parsing. 

BAKPTH  backs  up  the  last  path  which  was  found  in  a subset  of  the  current 
program  graph  until  an  arc  which  was  not  previously  taken  is  found. 

BEGDDP  determines  whether  any  DD-paths  begin  at  ISTKT.  If  so,  a stack  is 
set  up  to  indicate  the  initial  statements  on  each  DD-path. 

BRCNT  counts  the  number  of  branch  labels  in  TF-COMPUTED-GOTO,  COMPUTED- 
GOTO  statements,  IF-ASSIGNED-GOTO , and  ASSIGNED-GOTO  statements. 
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CDCRN1  tests  for  hardware-IF  statements  (IF-SENSE-L,  IF-SENSE-S,  IF-ACCTJMUL, 
IF-QUOTIENT,  IF-DIVIDE,  IF-EOF).  If  any  are  found,  the  initial  statements  begin- 
ing  each  DD-path  are  returned. 

CDCRN2  also  tests  for  hardware-IF  statements  and  and  sets  IACT  to  1 if  any 
are  found. 

CLASFY  identifies  delimiters,  operators  and  FORTRAN  keywords  in  unpro- 
cessed text  stream. 

COMPZ  converts  A1  characters  into  packed  A6  format. 

CRTFRC  is  a Library  Manager  routine.  It  zeros  out  a new  fragment  on  a 
given  library  and  returns  the  fragment  number.  If  necessary,  it  creates  an 
additional  fragment  for  the  library's  fragment  directory  table. 

DDPGEN  controls  the  generation  of  the  original  program  graph  and  builds 
the  DDPATH  Table.  The  statements  in  the  module  are  analyzed  sequentially  to 
see  how  many  DD-paths  originate  at  a given  statement  and  to  find  the  statements 
on  each  such  DD-path. 

DDPRED  constructs  the  predicate  for  a given  DD-path  number  by  calling 
PRDVAL  with  the  computed  predicate  index. 

DECLAR  processes  statements  which  are  identified  as  declarations 
(DIMENSION,  TYPE,  DOUBLE  PRECISION,  etc.).  The  STB  in  the  library  is  updated 
for  each  symbol  in  the  declarations. 

DMPFRG  is  a Library  Manager  procedure.  DMPFRG  removes  a given  working 
storage  fragment  from  core.  If  the  fragment  has  been  altered  since  being 
fetched  into  core,  it  is  written  to  the  given  library  fragment.  If  necessary, 
it  is  removed  from  the  access  interface  "active  fragment"  storage.  The  frag- 
ment directory  table  is  changed  to  indicate  the  module  is  no  longer  in  the 
working  storage. 

DMPMOD  is  a Library  Manager  routine.  It  removes  all  data  fragments  per- 
taining to  a given  module  from  the  working  storage,  including  the  MDB,  and 
sets  the  Module  Location  Table  to  indicate  the  module  is  no  longer  in  the 
working  storage. 

DOLABL  computes  unique  statement  numbers  for  CONTINUE  statements  which 
were  added  as  DO-targets  during  the  previous  pass  through  the  source  text. 


DPRED  calls  DDPRED  with  its  own  formal  parameters. 

DPSTMT  computes  the  list  of  statement  numbers  which  reside  on  a speci- 
fied set  of  DD-paths. 

DUNTIL  constructs  a DO  UNTIL  or  END  UNTIL  statement  for  the  structurized 
module,  depending  upon  the  value  of  NBL0K(3). 

EDIT10  edits  imbedded  blanks  out  of  A6  character  strings,  saving  a lead- 
ing blank  character  and  padding  the  last  word  with  trailing  blanks. 
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ELKMEN  generates  the  structurized  statement  text  for  statements  on  a 
specified  DD-path.  ELEMEN  adds  each  statement  except  the  last  one  on  a DD- 
patli  to  the  DMATRAN  program  being  written,  modifying  the  statement  when 
necessary  (as  for  ASSIGN  statements). 

ENCLOS  encloses  a given  string  of  length  LI,  stored  in  token  array  LIST1, 

with  a set  of  parentheses  and  stores  the  new  string  in  token  array  LIST. 

EROR  increments  the  error  counter  by  one  and  passes  the  identifying  er- 
ror number  (an  input  argument)  to  the  error  printing  routine,  PRMGXV . 

ERPERF  is  a print  routine  which  outputs  the  error  processing  statistics. 

EXTFIO  determines  if  a FORTRAN  extended  I/O  statement  is  an  IF-READ  con- 
ditional or  an  IF-WRITE  conditional  and  stores  the  appropriate  statement  type 
and  pointe-  to  the  read  or  write  token  in  the  SDB.  EXTFIO  calls  IOPROC  which 
processes  the  I/O  statement. 

F.XTIO  determines  if  an  extended  I/O  statement  is  a READ  or  WRITE  condi- 
tional and  stores  the  appropriate  statement  type  and  pointer  to  the  parameter 
list  in  the  SDB.  EXT 10  calls  IOPROC  which  processes  the  I/O  statement. 

FATAL 1 prints  the  fatal  error  message,  calls  the  error  printing  routine, 

PRMGXV , with  the  error  number,  calls  the  traceback  routine,  TRACE,  and  sets 
the  number  of  fatal  errors  to  one. 

FINDSB  performs  a tree  traversal  of  the  SESE  tree.  During  this  process 
any  large  segments  of  code  which  would  otherwise  be  duplicated  are  noted  so 
that  the  BLOCK... END  BLOCK  and  INVOKE  statements  can  be  used  to  control  code 
expansion.  The  mechanism  for  doing  this  is  an  internal  subroutine  stack  im- 
plemented in  the  SUBSTK  routine. 

FINISH  closes  the  libraries  and  saves  files  prior  to  termination  of  each 
processing  step. 

FJNC1  determines  the  initial  statements  on  a DD-path  which  originates  at 
a junction  node  in  the  program  graph. 

FJNC2  determines  whether  ISTMT  is  a junction  node  which  terminates  the 
DD-path  currently  being  formed. 

FLINIT  initializes  the  standard  files  used  and  prints  the  file  names  and 
descriptions . 

FNDCON  builds  a compact  table  of  arc  connections  in  the  current  program 
graph.  The  program  graph  may  be  interpreted  as  a directed  graph  in  one  of  two 
directions . 

FNDEND  builds  a label  table  for  each  module  for  subsequent  processing 
and  verifies  the  presence  of  an  END  statement  in  the  module.  If  there  is  no 
END  statement,  EROR  is  called  with  error  number  8002,  but  processing  continues. 


FNDPRD  performs  Che  minimum  tree  traversal  required  to  determine  the  DD- 
paths  associated  with  a decision  node  in  the  SESE  tree.  The  DD-paths  are  then 
used  to  build  the  actual  predicate  required. 

FPARSE  parses  a module  which  has  already  been  stored  in  the  statement 
blocks  and  builds  appropriate  tables.  FPARSE  loops  over  the  module  statements 
and  determines  if  a statement  is  a comment  or  an  assignment.  Statement  labels 
are  stored  in  the  SDB  and  STB.  Depending  upon  which  FORTRAN  com  filer  is  being 
used,  the  statement  is  further  parsed  by  PARRUN  (RUN  compiler),  PARPDP  (PDP-11 
FORTRAN),  PARUNV  (Uni vac),  or  PARASA  (ASA  FORTRAN).  The  language  dialect, 
number  of  executable  statements,  and  number  of  the  first  executable  statement 
are  stored  in  the  MDB.  STTBI.K  is  called  to  construct  block  pointers. 

FRTRN1  determines  whether  ISTMT  is  an  ANSI  Standard  statement  type  which 
begins  one  or  more  DD-paths.  If  so,  it  determines  the  initial  statements  on 
each  such  DD-path  according  to  the  statement  type. 

FRTRN2  finds  the  next  executable  statement  for  the  following  conditions: 
a CONTINUE  statement  which  is  not  a DO  target,  a GOTO  label  statement,  a 
RETURN,  END,  CALL  EXIT,  or  STOP  statement,  or  any  statement  not  an  IF-type. 

It  finds  the  next  statement  in  a DD-path  when  the  current  statement  is  one  of 
these  types. 

FUNPRC  determines  if  a subprogram  is  a block  data  (labelled  or  unlabelled) 
subroutine,  a subroutine,  program,  or  function.  The  number  of  arguments,  if 
any,  are  determined  and  the  MDB  updated  accordingly.  The  STB  is  updated  with 
the  arithmetic  mode  of  the  subprogram,  the  number  of  actual  parameters  and  the 
use  class. 

GETBIT  gets  the  ith  bit  from  a bit  string.  GETBIT  calls  routine  UNPX- 

GETBLK  is  an  Access  Interface  procedure  used  for  retrieving  a block  of 
information  from  a given  module  table.  The  procedure  first  checks  to  see  that 
the  module  is  active  for  that  table.  It  then  makes  certain  the  proper  frag- 
ments of  that  table  are  in  the  working  storage.  It  returns  the  proper  block 
in  a given  array . 

GETFOR  puts  the  next  complete  FORTRAN  statement  into  array  LIST,  in  A1 
format.  Leading  and  imbedded  blanks  are  preserved,  but  trailing  blanks  are 
removed.  GETFOR  reads  the  statements  from  unit  LUNIT.  If  a statement  uses 
more  than  20  cards,  EROR  is  called  with  error  number  7502. 

GETFRG  is  a Library  Manager  routine  which  activates  the  proper  fragment 
for  a given  module  table.  It  threads  its  way  through  the  proper  library  frag- 
ment table  until  it  locates  the  correct  fragment.  If  that  fragment  is  not 
already  in  the  working  storage,  it  retrieves  it  from  the  library,  dumping 
another  fragment  from  the  working  storage  if  necessary.  Access  interface 
"active  fragment"  data  is  updated. 

GETLBT  is  a Library  Manager  procedure  which  activates  the  proper  frag- 
ment for  a given  library  table.  If  a fragment  for  the  table  type  is  active, 
that  fragment  is  rolled  out  of  the  working  storage.  The  proper  fragment  is 
located  in  different  ways.  FDT  fragments  for  the  read  only  library  are  stored 
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successively  on  the  workspace  library.  Other  libraries'  FDTs  have  their  frag- 
ments spaced  along  the  library.  If  one  fragment  of  the  FDT  has  250  entries, 
there  is  a fragment  for  the  FDT  every  250th  fragment  (always  starting  at  frag- 
ment one).  For  the  entry  point  table,  the  last  cell  in  the  fragment  contains 
a pointer  to  the  next  fragment.  Once  the  proper  fragment  is  located,  it  is 
brought  into  the  working  storage  and  the  access  interface  "active  fragment" 
storage  is  updated. 

GETLST  is  an  Access  Interface  procedure  used  for  retrieving  a variable- 
length  block  of  information  from  a given  module  table.  The  procedure  first 
checks  to  see  that  the  module  is  active  for  that  table.  It  then  gets  the  pro- 
per table  fragment  into  the  working  storage  and  retrieves  the  list  out  of  it. 
If  the  list  spans  more  than  one  fragment,  successive  fragments  are  retrieved. 
It  returns  the  list  in  a given  array. 

GF-TMOD  is  a Library  Manager  procedure.  It  fetches  the  Module  Descriptor 
Block  for  a given  module  into  the  working  storage.  If  necessary  it  dumps 
another  module  from  the  working  storage  to  make  room.  Access  interface 
"active  table"  pointers  are  updated. 

GETTAB  is  a Library  Manager  procedure.  For  a given  table  of  a given 
module,  after  insuring  the  module  is  resident  in  the  working  storage,  it  up- 
dates the  access  interface  "active  table"  pointers. 

1BAPAR  is  a function  which  returns  an  integer  value  pointer  to  the  first 
balancing  right  parenthesis  for  the  first  left  parenthesis  in  a given  LIST  of 
length  L. 

1B0RCP  is  a logical  function  which  is  TRUE  or  FALSE  depending  on  whether 
a borrowed  code  construct  has  been  found. 

I BORN!  determines  whether  a self-loop  construct  has  been  found. 

I CHFRG  is  a Library  Manager  procedure.  It  is  called  when  a table  is 
changed.  If  the  module  to  which  the  active  table  is  on  the  read-only  library, 
I CHFRG  moves  all  information  for  that  module  to  the  read/write  library.  All 
data  for  the  module  is  first  dumped  from  the  working  storage.  Then,  using  a 
buffer  fragment  in  the  working  storage,  each  fragment  for  each  table  is  moved. 
Finally  the  MDB  for  the  module  is  put  onto  the  read/write  library. 

IFEOF  is  a function  which  checks  for  an  end-of-file  condition  on  unit 
LUNIT  and  returns  a 1 for  an  EOF  and  a 0 otherwise. 

IFPROC  parses  the  ANSI  Standard  IF  statement  types.  It  decides  which 
type  of  IF  statement  is  being  analyzed  and  extracts  and  saves  appropriate 
information  for  each  type.  j 

I FUN  IT  is  a function  which  checks  to  see  if  unit  LUN  is  busy  and  returns 
when  LUN  is  in  ready  status. 

IGTBIT  is  a function  which  returns  the  ith  bit  of  array  IARRAY.  1GTB1T 
uses  routine  UNPX . 

ICTTOK  is  a function  which  returns  the  first  word  of  the  specified  block 
of  the  token  table  in  A6  format. 
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IUTWRD  Is  a function  which  returns  a word  from  the  specified  table, 
block  and  index.  If  the  specified  index  or  block  are  beyond  the  length  of 
the  table,  or  if  the  table  has  not  been  made,  calls  to  EROR  with  errors 
5204,  5205  or  5206  will  result. 

IHLCON  converts  an  integer  constant  (ITEM)  into  a left-adjusted  Hollerith 
constant  in  A6  format.  If  used  as  a function,  ITEM  is  destroyed. 

IHVALU  is  a function  which  computes  the  integer  value  of  its  Hollerith 
integer  argument,  INPUT.  INPUT  is  not  destroyed  during  execution  of  IHVALU . 

IMAKEP  is  a Library  Manager  procedure.  It  creates  a new  module  in  the 
JAVS  system,  setting  up  a new  entry  in  the  Module  Location  Table. 

INDUP  is  a function  which  returns  a YES  or  NO  value  depending  upon  whe- 
ther the  input  parameter,  I TYPE , represents  DMATRAN  statement  types  IF 
THEN,  DO  WHILE,  ELSE,  DO  UNTIL,  and  BLOCK. 

INDWN  performs  the  same  purpose  as  INDUP,  except  that  INDWN  checks  for 
DMATRAN  statement  types  END  WHILE,  END  IF,  END  UNTIL,  and  END  BLOCK. 

INITPT  initializes  the  stack  for  walking  the  SESE  tree  and  building  an 
appropriate  predicate. 

INITT  initializes  the  stack  which  is  used  in  walking  the  SESE  tree. 

INITX  builds  the  statement  NEXIT  = 0 and  passes  it  to  NUSi’MT  to  add  to 
the  restructured  module. 

INSTAB  is  a function  which  searches  the  STB  for  a specified  symbol, 
IARRAY(l).  If  it  is  found,  INSTAB  = YES,  the  block  number  is  returned  in  MTH, 
and  the  contents  of  the  MTH  block  are  returned  in  IARRAY.  If  the  symbol  is 
not  found,  the  contents  of  IARRAY  are  added  to  the  end  of  the  STB. 

INTPOP  takes  an  integer  off  the  top  of  stack  INSTAK  and  stores  it  in  INT. 
If  the  stack  is  empty,  then  INT  = 0. 

INTRVL  identifies  the  next  interval  in  the  current  program  graph.  The 
purpose  for  this  is  to  identify  non-trivial  iteration  structures  which  have 
more  than  one  exit  vertex. 

1NTSTK  puts  the  input  parameter  INT  on  the  top  of  stack  INSTAK.  If  the 
stack  overflows,  EROR  is  called  with  error  number  8013. 

INVOK  adds  an  appropriate  INVOKE  statement  to  the  DMATRAN  program 
being  written.  The  appropriate  block  name  to  use  is  generated  by  INVOK. 

IOCOND  processes  statements  which  are  potential  I/O  conditional  state- 
ments in  order  to  send  the  labels  which  follow  END  and  ERR  to  subroutine 
KNSTBI . 

I0PR0C  parses  the  various  ANSI  Standard  input/output  statements.  The 
statement  type  is  identified  and  Symbol  Table  entries  are  created  or  updated 
appropriately. 
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ISASGN  is  a function  which  returns  a YES  or  NO  value  depending  upon 
whether  a statement  is  an  assignment  statement. 

ISCLAS  is  a function  which  returns  a 0 if  the  input  symbol  is  alpha- 
betic, 1 if  it  is  a digit,  2 if  it  is  a FORTRAN  special  character  (+  - * 

/ **  ,),  and  3 if  it  is  another  symbol. 

ISDOTR  is  a function  which  returns  a YES  or  NO  value  depending  upon  whe- 
ther the  jrh  statement  in  a specified  module  is  a DO  target. 

ISERCH  is  a function  which  searches  the  LIST  array  for  the  first  occur- 
rence of  the  specified  symbol,  1SYM,  and  returns  the  subscript  of  the  matching 
element  in  LIST.  ISERCH  is  0 if  there  is  no  match. 

ISETK  is  a function  which  returns  a value  that  represents  the  word-pair 
pointer  to  the  first  variable  in  a READ  or  WRITE  argument  list. 

ISIF  is  a function  which  returns  a YES  or  NO  value  depending  upon  whether 
a statement  is  an  IF-THEN  statement  type. 

IS ITUN  determines  whether  a portion  of  the  current  program  graph  can  be 
represented  as  a DO  UNTIL  type  of  iteration  structure. 

ISNONX  is  a function  which  returns  a YES  or  NO  value  depending  upon  whe- 
ther a statement  is  a nonexecutable  statement. 

ISRTAB  is  an  Access  Interface  procedure  for  searching  a given  data  base 
table  for  an  item  with  a given  value.  It  searches  item  INDEX  from  block  IBEG 
to  block  IEND.  It  first  insures  the  proper  table  is  active  and  retrieves  the 
first  fragment  of  table  information  to  be  searched  into  the  working  storage. 

It  brings  in  successive  fragments  of  the  table  to  search  if  it  does  not  find 
the  value.  When  an  item  with  a proper  value  is  found,  its  block  number  is 
returned.  If  no  item  is  found  before  IEND  block  is  reached,  a value  of  zero 
is  returned. 

ITORIF  is  a dummy  routine. 

ITRGBL  is  a function  which  returns  the  statement  number  that  is  the  tar- 
get of  a WHILE,  ELSE,  IF-THEN,  or  FORTRAN  DO  statement.  If  no  target 
can  be  found,  EROR  is  called  with  error  number  6201,  indicating  that  there  is 
no  BLOCK  structure,  and  ITRGBL  is  set  to  0 . 

ITSCJX  determines  whether  a comment  statement  should  be  treated  as  a 
junction  node  and  thus  begin  or  end  DD-paths. 

ITSDES  is  a function  which  returns  a YES  or  NO  value  depending  upon  whe- 
ther the  specified  statement  contains  a predicate. 

ITSFNC  determines  whether  an  arbitrary  statement  should  be  treated  as  a 
junction  node  and  thus  begin  or  end  DD-paths. 

ITSFRG  is  an  access  interface  routine  which  returns  the  fragment  number 
and  fragment  block  for  a given  table  and  block  number. 
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ITSMOD  is  a function  which  returns  the  value  *UNKNOWN 


ITSTYP  is  a function  which  determines  the  type  of  a given  symbol:  either 

a variable,  constant,  or  unknown  type. 

ITSVAR  is  a function  which  returns  a 1 if  the  input  parameter  ITEM  is 
in  the  STB  for  the  given  module  and  a 0 if  it  is  not  in  the  STB. 

I1STEX  is  a function  which  returns  the  statement  number  for  the  first 
executable  statement  in  a given  module.  The  statement  number  is  written  to 
file  LOUT.  If  there  are  no  executable  statements,  an  appropriate  message  is 
written  to  LOUT,  and  I1STEX  is  returned  as  0 . 

JGET  is  a function  which  extracts  the  Lth  symbol  from  a packed  A6  format 
character  string,  LIST,  and  returns  the  character  in  A1  format. 

JHVALU  is  a function  which  adds  an  integer  J (0-9)  to  the  token  table. 

If  J is  not  0-9,  then  EROR  is  called  with  error  number  8021,  a range  error. 

JPUT  inserts  the  leftmost  character  of  LIST  into  position  LET  of  the 
packed  character  string  (LIST)  originating  at  L . 

KFLOWS  computes  the  number  of  graphical  flows  in  an  SESE  construct. 

KJONES  is  the  driver  for  DD-path  generation.  KJONES  calls  DDPGEN  to 
generate  the  DD-paths  and  PUTWRD  to  store  the  number  of  paths  in  the  MDB. 

The  number  of  DD-paths  is  written  to  LOUT.  If  the  compiler  language  of  the 
given  module  is  not  found  to  be  FORTRAN,  then  EROR  is  called  with  error  number 
501.  If  the  STATUS  flag  was  sec  in  DDPGEN,  indicating  abnormal  graphical 
analysis,  EROR  is  called  with  error  number  502. 

KNSTAB  is  called  for  a given  i^th  word  and  mth  statement  of  a module.  If 
the  given  symbol  is  not  yet  in  the  STB,  it  is  added  to  the  STB  and  the  arith- 
metic mode,  symbol  type,  and  symbol  class  determined.  If  the  symbol  is  already 
in  the  STB,  the  symbol  type  and  class  are  updated,  if  the  symbol  is  an  external. 

KNSTBL  is  crlled  with  a given  label  in  a module.  If  the  label  is  not 
already  in  the  STB,  it  is  added,  along  with  the  statement  number  of  its  first 
occurrence.  If  the  label  was  already  in  the  STB,  the  number  of  its  occurrences 
is  incremented  by  one,  and  the  statement  number  of  its  last  occurrence  is  up- 
dated. If  the  label  is  not  a DO-target,  its  STB  use  class  is  typed  as  used. 

KSTMTS  computes  the  number  of  statements  in  an  SESE  construct. 

LABSTM  converts  LABEL  (which  was  obtained  as  a label  in  some  FORTRAN 
control  statement)  to  the  corresponding  statement  number  at  which  the  label  is 
def ined . 

LADJST  left-adjusts  a list  by  removing  all  leading  occurrences  of  a spe- 
cific symbol,  ISYM. 


LBDI RS  is  a Library  Manager  procedure  which  builds  and  initializes 
Library  Directories  within  the  STRUCTRAN-2  startup  sequence.  The  Fragment 
Directory  Table  for  the  read-only  library  is  first  moved  to  the  workspace 
library,  for  it  must  be  changed  during  the  STRUCTRAN-2  run.  The  Module  Loca- 
tion Table  is  then  constructed,  entering  the  modules  off  the  read-only  library 
and/or  the  modules  off  the  read/write  library.  If  both  a read-only  and  read/ 
write  library  exist,  as  modules  are  entered  from  the  latter,  a check  is  made 
to  see  if  that  module  was  already  entered  from  the  read-only  library.  If  it 
was,  the  MLT  entry  is  updated  to  point  to  the  newest  version;  if  not,  a new 
MLT  entry  is  made.  The  run-time  module  numbers  for  modules  on  the  read/write 
library  are  entered  into  its  EPT.  For  modules  taken  off  the  read-only  library, 
their  run-time  numbers  are  equal  to  their  library  index. 

l.BFREE  is  a Library  Manager  procedure.  It  releases  a module  from  the 
working  storage  and  can  be  called  by  a user. 

l.BINIT  is  a Starter  Initiator  procedure.  It  initializes  variables  used 
by  the  Library  Manager. 

1.BM0VE  is  a Library  Manager  procedure.  It  moves  a fragment  on  one 
library  to  a fragment  of  another  library  using  a given  fragment  in  the  working 
storage  as  a buffer. 

LBOPEN  is  a Library  Manager  procedure  which  opens  libraries  to  be  used 

in  a run  during  the  startup  sequence.  It  is  passed  the  names  of  the  read-only 

library  (NAMOLD)  and  the  read/write  library  (NAMNEW) . If  either  name  is  blank, 
it  is  assumed  the  user  is  not  supplying  a library  of  that  type  for  the  present 
run.  The  read-only  library  is  opened  first,  if  necessary.  Its  library  header 
is  read  off  the  library  into  array  LIBTAB.  The  read/write  library  is  then 
opened.  If  the  user  has  not  supplied  one,  a scratch  read/write  library  is 
opened.  For  a user  library  to  be  created  this  run  (or  in  the  case  of  a scratch 
library),  the  Library  Header  Table  is  built.  For  an  later  library,  it  is  read 
off  the  library.  An  alter  library  must  be  opened  with  the  same  name  as  it  was 
created  with  in  a previous  run  or  a fatal  error  will  result. 

L BREAD  is  a random  I/O  read  routine.  It  reads  NWDS  words  from  library 

LIBNUM,  starting  at  relative  address  LIBADD  and  stores  the  data  into  array 
CORARY,  starting  at  position  CORLOC.  If  LIBNUM  is  not  a legal  library,  EROR 
is  called  with  error  number  5313. 

I.BTGET  is  a Library  Manager  procedure.  For  a given  library  table,  it 
retrieves  the  table  length  and  first  fragment  index  from  the  library  header 
information  storage. 

LBTPUT  is  a Library  Manager  procedure.  For  a given  library  table,  it 
stores  the  table  length  and  first  fragment  index  in  the  library  header  infor- 
mation storage. 

I.B WRIT  is  a random  I/O  write  routine.  It  writes  NWDS  words  into  library 
LIBNUM,  starting  at  address  LIBADD.  The  data  comes  from  array  CORARY,  starting 
at  poslMon  CORLOC  Tf  I TRNITi  Is  not  a legal  library  number,  EROR  is  called 
with  error  number  5314. 

LB7.ER0  zeroes  out  a given  library  fragment. 

46 


LENTAB  is  an  Access  Interface  function  which  returns  the  number  of 
words  in  a block  of  a given  table. 


LEXEDT  takes  LS  number  of  symbols  in  A1  format  and  edits  them  into  A6 
word-pairs  for  the  SB.  Each  newly  edited  word  is  added  to  the  token  table. 

L EXFIX  is  a logical  function  which  returns  TRUE  if  the  Ith  word  in  the 
given  SB  contained  1H'.  LEXFIX  calls  I-EXPDP  which  performs  the  search  for 
1H' . 


LEXFR1  constructs  the  SB  for  FORTRAN  blank-  or  special  character- 
delimited  programs. 

LEXPDP  performs  the  proper  lexical  analysis  for  special  characters  such 
as  1H1  and  1HC. 

LGTBLK  is  a Library  Manager  procedure  used  for  retrieving  a block  of 
information  from  a given  library  table.  It  first  insures  the  proper  fragment 
is  in  the  working  storage  and  then  returns  the  proper  block  of  that  fragment 
in  a given  array. 

LGTWRD  is  a Library  Manager  procedure  which  retrieves  an  item  from  a 
block  of  a given  library  table.  It  first  insures  the  proper  fragment  is  in 
the  working  storage  and  then  returns  the  chosen  item  from  that  fragment. 

LINEA  is  a dummy  routine  which  returns  upon  entry. 

LNSTAB  searches  the  SB  for  a given  statement,  starting  with  word  posi- 
tion IBASE  and  ending  with  position  ILONG.  If  the  symbol  category  (lower 
wordpair  of  the  SB)  is  0,  then  KNSTAB  is  called  to  see  if  the  symbol  resides 
in  the  STB.  For  entry  LNSTBL,  KNSTB1  is  called  to  check  if  the  label  resides 
in  the  STB. 

LOOPCK  examines  an  interval  as  identified  by  INTRVL . It  determines  whe- 
ther the  interval  contains  an  iteration,  and  if  it  does  converts  it  into  a 
single  exit  form  by  making  all  exit  arcs  pass  through  one  of  the  exit  vertices. 

LPTBLK  is  a Library  Manager  procedure  used  for  storing  a block  of  infor- 
mation into  a given  library  table.  It  first  retrieves  or  creates  the  proper 
fragment  into  the  working  storage  and  then  stores  the  data  block  into  it. 

LPTWRD  is  a Library  Manager  procedure  which  stores  an  item  of  a block 
into  a given  library  table.  The  proper  fragment  is  first  retrieved  or  created 
in  the  working  storage  and  then  the  item  is  stored  into  it. 

LSTEX  is  a function  which  returns  the  statement  number  of  the  executable 
statement  just  prior  to  the  given  ISTMT. 

MAIN  is  the  main  program  which  invokes  each  overlay. 

MAINCM  is  a labelled  block  data  routine.  MAINCM  contains  labelled  com- 
mons for  all  global  variables.  Most  of  the  variables  are  set  in  data  state- 
ments in  subroutine  TOKNIT . MAINCM  contains  the  data  statements  used  to  ini- 
tialize the  number  of  errors  and  warnings  allowable  and  the  file  declarations. 
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MAKCON  builds  a compact  table  which  represents  the  current  program 
graph.  The  purpose  in  doing  this  is  to  be  able  to  efficiently  analyze  the 
flow  through  a subset  of  the  current  program  graph. 

MAKFRG  is  a Library  Manager  routine  which  appends  a new  fragment  to  a 
given  module  table.  A new  fragment  is  created  on  the  proper  library,  the  end 
of  the  original  table  is  found,  and  the  Fragment  Directory  Table  is  updated 
to  link  the  new  fragment  to  the  table  end. 

MAKMOD  is  a Library  Manager  procedure  which  establishes  a new  module  MDB 
on  a given  library.  A new  MDB  is  added  to  the  library's  MDB  chain,  creating 
a new  fragment  if  necessary.  An  Entry  Point  Table  entry  is  added,  updating 
it  completely  if  the  module  information  already  exists  on  some  other  library. 
The  Module  Location  Table  is  also  updated. 

MAKTAB  is  a Library  Manager  procedure  which  defines  a new  data  base 
table  type.  For  this  the  user  supplies  a table  name,  two  items  of  the  MDB 
to  be  used  for  pointers  by  the  Library  Manager  (or  two  cells  in  the  library 
header  if  it  is  a library  table)  and  a table  block  length.  The  procedure 
returns  the  assigned  table  number  which  must  be  used  in  the  subsequent  Access 
Interface  calls  to  that  table. 

MDBGET  is  a Library  Manager  procedure.  For  a given  module  table,  it 
retrieves  from  the  MDB  the  table's  present  maximum  length  and  a first  library 
fragment  index. 

MDBPUT  is  a Library  Manager  procedure.  For  a given  module  table,  it 
stores  in  the  MDB  the  table's  maximum  length  and  its  first  library  fragment 
index . 


MKVTAB  is  a Library  Manager  procedure  which  converts  a data  base  table 
defined  by  a call  to  MAKTAB  into  a variable  length  table.  For  this  the  user 
supplies  the  assigned  table  number,  the  maximum  number  of  blocks  per  entry 
in  the  table,  the  table  number  of  an  auxiliary  table,  two  items  in  the  auxi- 
liary table  that  the  Library  Manager  can  use  for  pointers,  and  an  offset 
where  one  wants  the  Library  Manager  to  store  its  length  cell. 

MLTWHL  implements  the  mechanism  which  remembers  that  an  SEME  iteration 
structure  is  being  reduced. 

MOVECH  moves  NCHARS  number  of  characters  from  position  1 of  array  IARY1 
to  array  IARY2,  starting  in  position  INDEX. 

MOVEWD  moves  NWDS  number  of  words  from  the  IPOS  position  of  IARRY  to 
the  IP0S1  position  of  IARRY1.  MOVEWD  calls  system  routine  XMIT . 

MXCLAS  is  a function  which  returns  the  maximum  class  (see  I CL AS)  of 
ITEM.  Entry  MNCLAS  returns  the  minimum  class  of  ITEM. 

NAFT  determines  how  many  arcs  and  which  ones  follow  a given  arc  in  the 
current  program  graph. 


NBEF  determines  how  many  arcs  and  which  ones  precede  a given  arc  in 
the  current  program  graph. 

NEGPRD  takes  the  contents  of  a predicate  in  word-pair  array  TEMP  and 
negates  it  logically.  NEGPRD  calls  NEGREL  which  negates  each  logical 
operator. 

NEGREL  substitutes  the  negative  relation  for  a given  logical  or  rela- 
tional operator. 

NEWFIR  generates  a new  statement  for  the  restructured  module:  NEXIT 

= j,  where  j is  integer  representing  an  appropriate  exit  value. 

NEWSND  generates  a new  statement  for  the  restructured  module:  NEXIT 

= 0,  used  to  guide  the  control  flow. 

NEXIT  is  a function  which  adds  'NEXIT'  to  the  token  table,  if  not  al- 
ready present,  and  returns  the  token  table  pointer  to  this  value. 

NFRGSZ  is  a Library  Manager  function  which  returns  the  working  storage 
fragment  size. 

NMBARG  is  a function  which  returns  the  number  of  arguments  in  LIST  if 
all  parentheses  balance.  Otherwise,  NMBARG  points  to  the  first  balancing 
right  parenthesis  in  LIST. 

NODPOP  pops  the  top  element  off  stack  NDSTAK  and  puts  it  into  output 
argument  NODE.  If  the  stack  is  empty,  NODE  is  returned  as  0. 

NODSTK  puts  an  element,  NODE,  on  the  top  of  stack  NDSTAK  if  NODE  is 
nowhere  in  the  stack.  If  NODE  is  already  in  the  stack,  control  returns  to 
the  calling  routine.  If  the  stack  overflows,  EROR  is  called  with  error 
number  8012. 

NOTRCH  determines  which  statements  in  a module  are  structurally  reach- 
able and  writes  a message  to  LOUT  indicating  that  all  statements  can  be 
reached  or  which  statements  cannot  be  reached.  NOTRCH  uses  subroutine  DPSTMT 
to  get  the  statements  on  each  DD-path  and  utilizes  bit  vectors  to  account  for 
reachable  statements. 

NPAR  computes  the  list  of  brothers  (parallel  arcs)  to  a given  arc  in 
the  current  program  graph. 

NPRED  returns  a list  of  5 words:  (NEXIT  = n)  where  n is  the  speci- 

fied number  of  DD-paths. 

NPTH  determines  the  next  path  in  the  subset  of  the  current  program  graph 
which  is  being  analyzed.  In  order  to  efficiently  perform  a path  analysis, 
FNDCON  implicitly  implements  a stack  for  remembering  which  paths  have  been 
taken  and  finds  the  next  arc  in  a path. 
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NULABL  is  a function  which  returns  a FORTRAN  label.  The  first  label 
is  8999;  each  call  to  NULABL  produces  a label  which  is  decremented  by  one 
from  the  last  call. 

NUMEXS  is  a function  which  returns  the  number  of  executable  statements 
in  a module. 

NUMODS  is  a function  which  returns  the  number  of  modules  active  on  the 
library. 

NUNAME  is  a function  which  returns  a value,  starting  at  9999  and 
decremented  by  one  with  each  call,  which  is  not  already  in  the  STB  for  the 
given  module. 

NUSTMT  is  used  to  write  a new  statement  for  the  restructured  module  onto 
LOUT.  The  statement  type  and  statement  length  LI  is  input.  The  new  state- 
ment list  must  be  in  array  LIST1  (in  common  MTHST1)  prior  to  calling  NUSTMT. 

The  new  statement  is  added  to  the  SB.  For  certain  statement  types,  enclosing 

parentheses  in  the  LIST1  expression  are  stripped  off  before  generating  the 
new  statement  in  LIST. 

NXTEX  is  a function  which  returns  the  number  of  the  next  executable 
statement  following  ISTMT. 

NXTSTM  determines  the  next  statement  on  the  DD-path  which  is  being  found, 
or  indicates  that  the  end  of  the  DD-path  has  been  found. 

OVRFLO  is  called  when  a stack  has  been  overflowed.  OVRFLO  calls  EROR 
with  error  number  5400  and  sets  FLAG  to  TRUE. 

PARALE  adds  IF  THEN,  ELSE,  or  END  IF  statements  to  the  DMATRAN  program 

being  written.  The  predicate  for  IF  THEN  statements  is  found  by  calling  FNDPRD. 
When  possible,  unnecessary  statements  are  removed  from  the  program  being 
written . 

PARASA  is  the  ANSI  X3.9  FORTRAN  recognizer.  PARASA  is  called  with  a 
module,  statement  number,  and  keyword.  Depending  upon  the  keyword,  PARASA 
determines  the  statement  type,  number  of  entries  (if  a subprogram),  the 
symbol  use  class,  statement  type  code  (executable,  non-executable,  comment, 
etc.),  label  (if  any),  intra-statement  structure  pointer  and  stores  the 
statement  in  the  SB. 

PARPDP  performs  the  parsing  for  READ  and  WRITE  conditional  statements, 
DEFINE  FILE,  IMPLICIT,  BYTE,  INTEGER,  LOGICAL,  and  REAL  statements. 

PARRUN  recognizes  special  FORTRAN  statements,  such  as  the  hardware  IF 
statements,  SENSE  LIGHT  and  SENSE  SWITCH  declarations.  The  statement  type 
is  stored  in  the  SDB  and  the  statement  list  in  the  SB. 

PARUNV  recognizes  other  special  FORTRAN  statements,  such  as  DEFINE, 
ABNORMAL,  INCLUDE,  1F-PRINT.  The  statement  type  is  stored  in  the  STB  and  the 
statement  list  in  the  SB. 


PCHMOD  causes  the  statements  in  a module  to  be  written  onto  LPUNCH 
in  FORTRAN  card  image  format.  PCHMOD  calls  PCHMTH . 


PCHMTH  is  called  by  PCHMOD  with  a specified  module  and  statement  number. 
PCHMOD  writes  the  statement  onto  LPUNCH  in  standard  FORTRAN  card  image  form 
(unindented ) . 

PDPFT1  checks  a given  statement  for  READ/WRITE  or  IF-READ/WRITE  condi- 
tional statement  type.  If  any  of  these  statement  types  are  found,  IACT  is  set 
to  1,  the  labels  within  the  statement  text  are  stored,  and  the  next  executable 
statement  is  stored  in  the  statement  vector,  STMVEC. 

PDPFT2  merely  sets  a flag,  IACT,  to  1 if  statement  type  NAME  is  a READ/ 
WRITE  conditional  or  IF-READ/WRITE  conditional.  This  terminates  the  DD-path 
being  found. 

POP DPP  removes  the  initial  statements  for  the  next  DD-path  from  the  DD-path 

stack . 


POSTAK  puts  a symbol,  ISTMT,  of  two  words  and  a priority  value  on  the 
top  of  ISTACK.  If  ISTACK  has  overflowed  (its  pointer  is  less  than  or  equal 
to  0),  then  0VRFL0  is  called. 


PRDASA  is  called  with  the  module  and  statement  numbers,  statement  type, 
and  DD-path  predicate  index  as  input  parameters.  From  this  information, 
PRDASA  constructs  the  restructured  predicate  statements  and  stores  it  in 
array  LWORK. 

PRDBG  is  a debugging  printout  routine.  It  writes  the  values  of  its  six 
input  arguments  onto  file  LDBG  in  the  format  5X,  A10,  5110. 


PRDDP  writes  the  DD-path  table  for  a given  module  onto  file  LOUT. 

PRDIFT  checks  for  IFTRAN-IF,  WHILE  or  ORIF  statements  and  negates  the 
expression  associated  with  the  second  predicate  index. 

PRDPOP  pops  a 5-word  predicate  off  SSTACK  and  returns  it  in  array  NBLOK. 


PRDSPC  is  called  upon  detection  of  hardware  IF  statements.  PRDSPC 
generates  calls  to  FORTRAN  library  routines  and  replaces  the  hardware  IF 
statement  in  the  module's  text  with  an  appropriate  call.  The  following 
replacements  are  made: 


Old  Statement 


New  Statement 


IF  ACCUMULATOR  OVERFLOW  N1,N2 
IF  QUOTIENT  OVERFLOW  N1,N2 
IF  DIVIDE  CHECK  N1.N2 
IF  (SENSE  LIGHT  I)  N1,N2 
IF  (SENSE  SWITCH  I)  N1,N2 


CALL  OVERFL(J) 
CALL  OVERFL(J) 
CALL  DVCHK(J) 
CALL  SLITET (I ,J) 
CALL  SSWTCH(I.J) 


where  J Is  a new  variable  name  generated  by  NUNAME.  When  PRDSPC  returns  to 
calling  subroutine  PRDVAL , the  statement  "IF  (J  .EQ.  1)  THEN"  is  generated 
as  the  next  source  text  statement. 
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PRDSTK  puts  a 5-word  predicate  (in  MBL0K1 , MBLOK2 , MBLOK3 , MBLOK4 , 
MBLOK5  input  arguments)  onto  stack  SSTACK.  If  stack  pointer  IPTR  is  less 
than  one,  KROR  is  called  with  error  number  8018. 


PRDVAL  is  the  driver  routine  to  evaluate  predicates.  PRDVAL  stores  a 
left  parenthesis  in  LW0RK(1,1),  computes  the  predicate  expression  by  calling 
PROAS A , PRO  I FT , PRDSPC , and  stores  the  new  expression  in  LW0RK(1,2)  to 
LW0RK(1 ,LW-1) , then  stores  a right  parenthesis  in  LW0RK(1,LW). 

PRLBT  is  a print  procedure  which  outputs  the  contents  of  the  library 
headers  for  the  read-only  and  read/write  libraries. 

PRMDB  is  a print  procedure  which  outputs  the  partial  contents  of  the 
Module  Descriptor  Blocks  known  in  the  system. 

PRMGXV  writes  the  error,  warning  and  fatal  error  numbers  and  a message 
onto  file  LUN1T . 

PRMODL  writes  an  indented  listing  of  a given  module  onto  file  LOUT. 
Statement  numbers  are  listed  at  the  far  left  of  the  printout.  Indentation  of 
statement  is  based  upon  control  flow  nesting.  Each  indentation  increment, 
INDSTP,  is  4 columns. 

PROG  controls  the  internal  subroutine  stack  and  generates  BLOCK  and  END 
BLOCK  statements  at  the  proper  times. 

PROG  copies  a module  from  the  library  back  onto  the  library  under  a new 
module  number.  The  new  module  is  then  modified  during  the  restructuring  pro- 
cess. Interspersed  format  statements,  if  any,  from  the  old  module  are  collect 
ed  and  written  at  the  end  of  the  new  module.  The  MDB,  SDB,  and  SB  (via 
STMTOU)  are  created  for  the  new  module. 

PRSDB  writes  the  SDB  (Statement  Descriptor  Blocks)  for  a given  module 
onto  file  LOUT. 

PRSTB  writes  the  STB  (Symbol  Table  Blocks)  for  a given  module  onto  file 

LOUT , 


PRSTMT  writes  the  I_th  statement  of  a given  module  onto  file  LUN,  which 
is  an  input  parameter.  The  indentation  level,  INDENT,  is  also  an  input 
parameter . 

PRTEMP  is  used  for  debugging  purposes.  PRTEMP  writes  the  contents  of  a 
specified  temporary  table  onto  file  LOUT. 

PRTOKS  writes  the  contents  of  the  token  table  onto  file  LOUT.  One  token 
table  is  created  for  the  entire  library,  thus  there  is  no  module  specification 

PSTPOP  places  the  top  element  of  the  stack  ISTACK  onto  the  output  string 
IPOST.  If  the  stack  has  underf lowed  FLAG  is  set  to  TRUE  and  control  returns 
to  the  calling  module. 
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PT  implements  the  stack  for  walking  the  SESE  tree  and  finding  DD-paths 
which  affect  predicates  to  be  formed. 

PUTB1T  puts  I BIT  into  the  Ith  position  of  IARRAY  using  subroutine  PACX. 

PUTBLK  is  an  Access  Interface  procedure  for  storing  a block  of  informa- 
tion into  a given  module  table.  After  checking  to  see  the  module  is  active 
for  the  table  and  indicating  the  table  is  going  to  be  changed,  another  library 
fragment  is  appended  to  the  table  if  necessary.  Then  the  proper  fragment  is 
retrieved  into  the  working  storage  and  the  given  block  is  stored  into  it. 

PUTFOR  writes  a statement  into  the  output  file. 

PUTLST  is  an  Access  Interface  procedure  for  storing  a variable  length 
block  of  information  into  a given  module  table.  The  procedure  checks  if  this 
is  a new  block  being  put  into  the  table  or  an  update  of  an  old  block.  If  it 
is  a new  block,  it  sets  the  table  pointers  in  the  auxiliary  table.  It  makes 
the  module  active  for  the  table  and  indicates  that  the  table  is  being  changed. 
If  necessary,  new  fragments  are  appended  to  the  table  to  store  a new  list. 

The  proper  fragment  is  brought  into  the  working  storage  and  the  list  is  stored 
into  it.  Successive  fragments  are  brought  in  if  the  list  spans  multiple 
f ragments . 

PUTWRD  is  an  Access  Interface  procedure  for  storing  an  item  into  a given 
block  of  a given  module  table.  It  insures  the  module  is  active  for  the  table 
and  indicates  the  table  is  being  changed.  It  also  appends  a new  library  frag- 
ment to  the  table  if  necessary.  The  proper  fragment  is  brought  into  the 
working  storage  and  the  item  is  stored  Into  the  proper  block. 

REMBRO  removes  brothers  (parallel  DD-paths)  from  the  DDPATH  table  as  it 
produces  a reduced  form  of  the  program  graph. 

REM ENT  removes  out-of-date  entries  from  the  current  program  graph 
representation. 

REORDR  reorders  the  current  program  graph  representation  so  that  it  is 
ordered  by  the  first  element  in  each  entry. 

REPLC1  replaces  all  occurrences  of  A1  character  ITHIS  with  A1  character 
ITHAT  in  LIST  of  length  1,  where  the  LIST  array  contains  only  one  character  in 
the  leftmost  position  of  each  word.  Entry  REPLC10  performs  the  same  replace- 
ment in  LIST,  where  LIST  is  a packed  character  string  array.  REPLC10  uses 
subroutines  JGET  and  JPUT  to  search  and  replace  the  characters  within  each 
LIST  word. 

SBLKSZ  is  a Starter  Initialization  procedure.  It  calculates  the  number 
of  blocks  that  will  fit  into  one  fragment  for  each  table.  It  also  sets  up 
some  access  interface  pointers  for  library  tables.  It  returns  the  number  of 
modules  that  can  be  active  at  any  one  time  (one  fragment’s  worth). 

SEME  identifies  SEME  structures  in  the  current  program  graph  and  replaces 
them  with  a structurally  similar  construct  which  has  only  one  exit  vertex. 

This  is  done  by  choosing  an  exit  vertex  and  redefining  all  exits  to  go  through 
this  vertex  in  a consistent  manner. 
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SEMEX  forms  the  proper  predicates  for  a structurized  multiple-exit  loop 
and  adds  the  DO  WHILE  and  END  WHILE  statements  to  the  DMATRAN  program  being 
written . 

SESPOP  pops  5 words  off  of  SSTACK  and  stores  them  in  array  NBLOK. 

SESPOP  is  used  in  processing  single-entry/single-exit  blocks  of  code.  If  the 
stack  is  empty,  LFLAG  is  set  to  FALSE. 

SESSTK  puts  5 words  (input  parameters  MBL0K1 , MBL0K2 , MBL0K3 , MBL0K4 , 
MBI.0K5)  onto  stack  SSTACK.  If  the  stack  overflows,  EROR  is  called  with  error 
number  8016. 

SHRINK  controls  the  generation  of  the  SESE  tree.  Various  reduction 
algorithms  are  applied  to  the  current  program  graph,  producing  a new  program 
graph  and  adding  an  entry  to  the  DD-path  table  for  each  reduction  performed. 
SHRINK  terminates  when  the  current  program  graph  consists  of  only  one  entry, 
or  when  no  more  reductions  can  be  performed. 

SLABEL  is  called  after  a module  has  been  restructured.  SLABEL  replaces 
the  statement  labels  in  any  READ/WRITE  conditional  statement  with  new  unique 
labels  which  correspond  with  the  restructured  code. 

SLEDIT  (also  entry  SL3DIT)  edits  a LIST  array,  removing  words  which  have 
the  value  of  0 and  changing  the  sign  of  words  which  are  negative.  If  input 
parameter  NAR  equals  3,  then  the  original  and  edited  LIST  are  the  same.  If 
NAR  equals  4 or  more,  the  edited  list  is  stored  in  array  LSTOUT. 

SLFLOO  writes  a WHILE  or  END  WHILE  statement  in  the  structurized  module, 
depending  upon  whether  it  is  the  beginning  or  ending  of  a self-loop. 

SPRYWD  consecutively  fills  an  array,  IARRAY,  starting  at  position  IPOS 
with  a total  of  NWDS  occurrences  of  the  constant  IVALUE. 

STCK  puts  the  value  ISTMT  on  the  top  of  stack  ISTCK.  If  the  stack  over- 
flows, EROR  is  called  with  error  number  8026. 

STIiOUX  stores  N number  of  statement  numbers  into  array  STMVEC.  The 
statement  numbers  are  obtained  from  calls  to  subroutine  LABSTM  and  are, 
therefore,  statement  numbers  which  correspond  to  a label. 

STMTOU  takes  statement  number  ISTMT  from  the  old  (unstructured)  module 
and  stores  the  text  into  the  current  statement  number  pointer  in  the  restruc- 
tured module.  The  statement  number  pointer  and  cumulative  length  of  SB  for 
the  new  module  are  updated. 

STRTER  is  the  Starter  Initialization  driver.  It  calls  procedures  that 
initialize  system  storage  and  open  the  random  libraries  that  are  to  be  used 
during  the  STRUCTRAN-2  execution. 

STRUCT  controls  the  procedure  of  walking  the  SESE  tree  and  producing 
the  structurized  program  during  the  tree  walk.  INITT  and  TT  implement  stacks 
for  a tree  traversal,  while  the  other  routines  referenced  produce  structured 
statements  according  to  the  type  of  reductions  in  the  SESE  tree. 
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STRUC1  - STKUC2  are  driver  routines  for  each  overlay  link. 

STTBLK  constructs  the  target  pointers  to  the  end  of  IF,  ORIF,  ELSE, 

WHILE  blocks  and  DO  targets  for  FORTRAN  programs.  The  target  statement  num- 
ber is  stored  in  the  intra-statement  pointer  word  of  the  SDB.  In  FORTRAN 
programs,  if  the  DO  target  is  not  a CONTINUE  statement,  WARN  is  called  with 
warning  number  5101. 

SUBINT  is  used  to  initialize  the  SBSTAK  pointer  to  0 and  to  set  the 
stack  size  to  50. 

SUBPOP  pops  the  top  element  off  stack  SBSTAK  and  stores  it  into  output 
parameter  IDDP.  If  the  stack  is  empty,  EROR  is  called  with  error  number  8007. 

SUBSCH  is  the  routine  which  adds  all  SESE  reductions  to  the  DDPATH  table 
as  the  SESE  is  being  built.  It  is  given  the  type  of  reduction  and  the  entries 
being  reduced  (in  LIST)  and  returns  the  entry  (IENTRY)  in  the  DDPATH  table  at 
which  this  information  was  stored. 

SUBSTK  puts  input  parameter  IDDP  onto  the  top  of  stack  SBSTAK.  EROR  is 
called  with  error  number  8006  if  the  stack  overflows. 

SYSADD  is  a Library  Manager  procedure  which  sets  the  number  of  system 
tables  to  those  defined  previously  during  execution. 

TBINIT  is  a Library  Manager  procedure  which  initializes  some  system  table 
storage  and  defines  the  system  data  base  tables. 

TOKADD  is  an  integer  function  which  adds  the  character  string  CHRLST  of 
character  length  CHARS  to  the  token  table,  if  the  string  is  not  already  pre- 
sent in  the  table.  The  token  pointer  is  updated  if  an  insertion  is  made. 

TOKCMP  is  an  integer  function  which  returns  the  token  pointer  which  cor- 
responds to  the  input  string  CHRLST.  TOKCMP  equals  0 if  the  string  is  not  in 
the  token  table. 

TOKNIT  is  called  once,  and  it  initializes  a set  of  token  numbers  to  refer 
to  a set  of  character  strings.  TOKNIT  calls  TOKSET  which  puts  the  character 
strings  in  the  token  table  and  returns  an  integer  pointer.  The  initialized 
variables  in  TOKNIT  are  set  to  the  token  pointers. 

TOKSET  is  an  integer  function  which  returns  a token  pointer  value  to  the 
input  character  string,  after  adding  the  string  to  the  token  table. 

TRACE  is  a dummy  routine  which  returns  upon  entry. 

TT  controls  the  stack  which  is  used  in  walking  the  SESE  tree.  The  type 
of  reduction  represented  in  the  SESE  tree  is  used  to  determine  the  invocation 
which  is  placed  on  the  stack. 

UPDEPT  is  a Library  Manager  procedure  which  updates  a module's  entry  in 
a Library  Entry  Point  Table.  If  the  module  has  been  moved  from  the  read-only 
library,  necessary  information  is  retrieved  from  the  library's  EPT.  Otherwise 
the  information  is  obtained  from  the  module's  MDB . 


UNPX  is  a bit  string  manipulation  routine.  The  bits  starting  at  loca- 
tion II  and  ending  at  JJ  of  KERNL  are  moved  to  ISTRING,  starting  at  location  1. 

WARN  increments  the  warning  counter  by  one  and  call  PRMCXV  which  prints 
the  warning  message  and  number.  If  the  number  of  warnings  exceeds  NWARER 
(set  in  MAINCM) , then  EROR  is  called  with  error  number  5000. 

WSGFRG  is  a Library  Manager  procedure  which  reads  a given  library  frag- 
ment into  a given  working  storage  fragment. 

WSGWRD  is  a Library  Manager  procedure  which  reads  a given  number  of  words 
from  a given  library  address  to  a given  working  storage  address. 

WSPFRG  is  a Library  Manager  procedure  which  writes  a given  working  stor- 
age fragment  into  a given  library  fragment. 

WSPWRD  is  a Library  Manager  procedure  which  writes  a given  number  of 
working  storage  words  onto  a given  library  starting  at  a given  address. 

XMIT  transmits  the  first  II  words  of  array  12  into  the  fitst  II  words 
of  array  13.  If  II  is  negative,  XMIT  transmits  the  first  word  of  12  into 
the  first  +11  words  of  array  13. 
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